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Kapitel 1: 
DIE TASTATUR 





In diesem Kapitel lernen Sie die Handhabung der 74 Tasten Ihres 
CPC6128. Mit Hilfe dieser Tasten werden Sie alle verborgenen 
Möglichkeiten Ihres Heimcomputers erschließen. Sei es die 
Eingabe von Texten, das Erstellen von Bildern (Grafiken), das 
Abschicken von Anweisungen oder die Berechnung mathema- 
tischer Probleme, all dies wird für Sie nach diesem Kapitel kein 
Neuland mehr sein. Wenn Sie einmal alle Tasten beherrschen, 
wird der CPC6128 Ihnen ein folgsamer Partner bei der Lösung 
vieler Probleme sein. 


Das Beherrschen der Tastatur dient nicht nur Computer-Freaks, 
die einmal jedes Bit des Rechners mit dem Vornamen kennen 
möchten, sondern auch denen, die ihren Computer nur mit den 
reichhaltig angebotenen Fertigprogrammen "füttern" wollen. Je- 
mand, der sich zu den zuletzt genannten Anwendern zählt, darf 
bei einer Meldung eines Standardprogramms wie z.B. 
"DRUECKEN SIE DIE RETURN-TASTE ZUM AUSDRUCK 
DES BILDSCHIRMINHALTS" nicht verzweifelt in seinem Hand- 
buch wühlen. 
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Kurzum sollte jeder, der auch nur gelegentlich an seinem Gerät 
arbeitet, mit der Tastatur vertraut sein. Der Vater eines 
computerfaszinierten Sohnes z.B. sollte zumindest wissen, wie das 
beste Spielprogramm des Sohnemanns geladen wird, wenn der 
gerade außer Haus ist. 


Doch keine Angst, Sie müssen sich nicht vorher zu einem 
Schreibmaschinenkursus an der Volkshochschule anmelden. Die 
meisten auch noch so erfahrenen Freizeitprogrammierer arbeiten 
mit dem "Zweifinger-Suchsystem". Wer eine gewisse Zeit mit der 
Tastatur vertraut ist, wird sich bald darüber wundern, wie flink 
er über die Tasten saust. 


In diesem Kapitel werden die weißen Hilfstasten besonders aus- 
führlich beschrieben. Diese Tasten sind sehr wichtig, da z.B. 
Texte bearbeitet, Programme unterbrochen und Befehle an den 
Rechner übermittelt werden können. 


ALLGEMEINES ZUR TASTATUR 


Auf den ersten Blick erweckt die Tastatur des CPC6128 den Ein- 
druck einer üblichen Schreibmaschinentastatur. Doch wenn Sie 
genauer hinsehen, werden Sie leichte Abweichungen feststellen: 


Die Buchstaben ’Y’ und °’Z’ sind gemäß der 
amerikanischen ASCII-Norm vertauscht. 


Die Tastatur weist keine Umlaute (ö,4,ü) und kein 
scharfes ’s’ (ß) vor, da diese Zeichen im amerikanischen 
Zeichensatz nicht enthalten sind. 


Es gibt zusätzliche Tasten (Hilfstasten), deren Funktion 
später erläutert wird. 


Sie sollten keine Experimente mit der Tastatur machen, bevor Sie 
nicht mit deren Funktion vertraut sind. Zwar können durch 
Fehlbedienungen keine Rauchwolken aus dem Rechner 
aufsteigen, doch Sie können durch überraschende Mißerfolge 
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verblüfft werden. Warten Sie also geduldig auf die praktische 
Einweisung auf den nächsten Seiten. 


LOS GEHT’S 


Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
d Locomotive Software Ltd. 


BASIC 1.1 
Ready 





Nun wird es Zeit, die schlafende Technik in Ihrem CPC6128 zum 
Leben zu erwecken. Schalten Sie dazu den Rechner ein. Sie 
finden zwei Schalter, einen am Monitor und einen am Rechner. 
Beide müssen eingeschaltet werden. Nach jedem Einschalten er- 
scheint eine Meldung, die besagt, daß der Rechner nun bereit ist, 
Ihren Kommandos zu folgen. Die erste Zeile der Meldung weist 
darauf hin, daß Sie mit einem SCHNEIDER-Computer arbeiten, 
der 128 KByte (ca 131070 Zeichen) Hauptspeicher enthält. Von 
diesen 131070 Speicherzellen stehen Ihnen ca 40000 für eigene 
BASIC-Programme zur Verfügung. Der Rest der ersten 64 KByte 
des Speichers wird vom Rechner für das Betriebssystem und die 
Programiersprache BASIC benötigt. Die zweiten 64K Byte können 
als Datenspeicher genutzt werden. 


Die nächste Zeile besagt die eigentliche Herkunft des Rechners, 
die Firma AMSTRAD in Großbritannien. Von der Firma 
LOCOMOTIVE SOFTWARE stammt das integrierte BASIC, das, 
wie sich später noch herausstellen wird, überaus leistungsfähig ist. 
Dieses BASIC hat die Versionsnummer 1.1. Sollten einmal 
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Änderungen oder Verbesserungen vorgenomen werden, so ändert 
sich auch diese Nummer entsprechend. In der letzten Zeile besagt 
die Meldung ’READY’, daß das Betriebssystem nun Kommandos 
erwartet. Diese READY-Meldung signalisiert, daß Ihnen der 
Rechner zur Verfügung steht. 


Nun zu dem kleinen Quadrat unterhalb des ’READY’. Dies ist 
eine Orientierungshilfe auf dem Bildschirm. Angenommen, Sie 
möchten etwas auf dem Bildschirm schreiben, dann ist es 
notwendig, genau zu wissen, wo das einzugebene Zeichen 
erscheinen wird. Diese Markierung, die man in der Fachsprache 

CURSOR ("körsa" gesprochen) nennt, hilft Ihnen also, sich am 
Bildschirm zurechtzufinden. 


DREI-FINGER-GRIFF 





In vielen Situationen ist es notwendig, den Rechner in den Ein- 
schaltzustand zu versetzen. Bei vielen anderen Computern muß 
dieser dazu ein- und wieder ausgeschaltet werden. Dies hat aber 
eine überflüssige Belastung für die hochwertige Elektronik des 
Rechners zur Folge. Um dies zu vermeiden, kann der CPC6128 
mit einigen Tasten in den Einschaltzustand versetzt werden. Dazu 
müssen Sie die drei Tasten SHIFT-CTRL-ESC drücken. Achten 
Sie aber darauf, daß die Taste ESC zuletzt betätigt wird, während 
die Tasten SHIFT und CTRL gedrückt bleiben. Versuchen Sie 
nun einmal diesen sogenannten Drei-Finger-Griff. Sie bemerken, 
daß das gleiche Bild erscheint, das auch dem Einschalten des 
Rechners folgt. 
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Das Zurücksetzen des Rechners, auch RESET oder Kalt-Start 
genannt, sollte vorsichtig gehandhabt werden, das die BASIC- 
Programme stets dabei gelöscht werden. 


DIE CURSOR - TASTEN 





Diese Tasten befinden sich rechts über dem Ziffernblock. Die 
Pfeile auf diesen Tasten entsprechen der Richtung, in der sich 
der Cursor auf dem Bildschirm bewegen soll. Betätigen Sie nun 
einmal die RECHTS-Taste 20 mal. Der Cursor wandert 20 Stellen 
nach rechts und verweilt wieder geduldig in der Bildschirmmitte. 


Schneider 128K Microcomputer (v3) 
1985 Amstrad Tonauner Electronics _plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 
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Was aber, wenn der Cursor den rechten Rand dieser Zeile über- 
schreitet? Probieren Sie dies selbst aus, und drücken dazu 
nochmals 20 mal die RECHTS - Taste. Nach dem 20. Druck auf 
diese Taste erscheint der Cursor in der 1. Spalte der folgenden 
Zeile. 


Schneider 128K Microcomputer (v3) 


1985 Amstrad Consumer Electronics _plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 





Es ist doch recht umständlich, 20 mal auf die Cursor-Taste zu 
hämmern, um in die Bildschirmmitte zu gelangen. Diese Prozedur 
können Sie etwas vereinfachen. Wenn Sie die Taste gedrückt hal- 
ten, so wandert der Cursor selbständig nach rechts. Dies gilt auch 
für alle anderen Tasten. Probieren Sie dies aus, und halten Sie 
dazu die CURSOR-RECHTS - Taste gedrückt. Beobachten Sie, 
wie der Cursor zum rechten Bildschirmrand sprintet. 


Um den Cursor nun in die andere Richtung zu bewegen, be- 
nutzen Sie die CURSOR-LINKS - Taste. Probieren Sie nun auch 
diese Taste aus. Der Cursor bewegt sich also jetzt in die andere 
Richtung. 


Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
nd Locomotive Software Ltd. 
BASIC 1.1 


Ready 





Selbstverständlich bewegt sich der Cursor auch selbständig nach 
links, ohne daß immer wieder auf die Taste gedrückt werden 
muß. Halten Sie dazu einfach die Taste gedrückt. 


Wie kann man nun den Cursor wieder in die Ausgangsstellung 
(unterhalb ’READY’) bringen? Dazu könnten Sie z.B. solange die 
CURSOR LINKS - Taste gedrückt halten, bis der Cursor Zeile 
für Zeile nach oben wandert. Doch dies ist nicht im Sinne des 
Erfinders. Die Cursor-Tasten OBEN und UNTEN ermöglichen 
Ihnen die ebenso schnelle Bewegung des Cursors nach oben und 
unten wie mit den bisher beschriebenen Tasten nach links und 
rechts. 


Bewegen Sie nun den Cursor zum linken Bildschirmrand. Der 
Cursor wartet wiederum geduldig, bis Sie ihn an eine andere 
Stelle bewegen. Peilen Sie nun die CURSOR-UNTEN - Taste an 
und drücken Sie diese Taste dreimal. Sie haben bemerkt, daß der 
Cursor drei Zeilen nach unten gesprungen ist. 
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Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 





























Versuchen Sie nun den Cursor in die 3. Bildschirmzeile zu bewe- 
gen. Benutzen Sie dazu die CURSOR-OBEN - Taste. 





Schneider 128K Microcomputer (v3) 

= 1985 AnBtEnG Consumer Electronics plc 
BASIC 1.1 

Ready 


d Locomotive Software Ltd. 





Auch hier wandert der Cursor selbständig Zeile für Zeile nach 
oben oder nach unten, wenn Sie die Taste gedrückt halten. 


Um ein Gefühl für die Cursor-Tasten zu erlangen, versuchen Sie 
einmal, mit dem Cursor ein unsichtbares Quadrat zu zeichnen. 
D.h. Sie bewegen den Cursor rechts / unten / links / oben oder 
anders herum links / unten / rechts / oben. Das Beherrschen der 
Cursor- Tasten ist erstrebenswert, da Sie später z.B. Korrekturen 
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in einem Programm blitzschnell vornehmen können. Doch Übung 
macht den Meister, und der ist bekanntlich noch nicht vom 
Himmel gefallen. 


EDITIEREN MIT DEN CURSOR-TASTEN 


Hier taucht ein Fremdwort aus der Datenverarbeitung auf, dessen 
Bedeutung dem einen oder anderen Leser, besonders dem An- 
fänger, sicher nicht bekannt ist. Editieren bedeutet Bearbeiten 
von Texten, z.B. Texte erstellen und ändern. Man spricht bereits 
vom Editieren, wenn Sie ein paar Worte auf den Bildschirm 
schreiben. 


Bei vielen anderen Rechnern können Sie den Cursor auf dem 
Bildschirm beliebig bewegen, Text eingeben und weiterbewegen. 
Der CPC6128 jedoch hat eine wichtige Eigenart. Sie können den 
Cursor solange beliebig bewegen, bis Sie irgendein Zeichen der 
Tastatur gedrückt haben. Von nun an können Sie den Cursor nur 
innerhalb der eingegebenen Zeichen wandern lassen. Dies ist et- 
was graue Theorie, die wir nun in die Praxis umsetzen. Versetzen 
Sie Ihren Rechner zunächst in den Einschaltzustand (SHIFT- 
CTRL-ESC). Schreiben Sie nun das Wort "computerfreund" auf 
dem Bildschirm, auch wenn das Suchen der Buchstaben bei Ihnen 
etwas länger dauert: 


Schneider 128K Microcomputer (v3) 


1985 Amstrad Consumer Electronics _plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 
compüterfreund_ 
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Nun verweilt der Cursor hinter dem letzen Buchstaben dieses 
Wortes und weigert sich strikt, irgendeine andere Richtung als 
links zu den eingegebenen Buchstaben einzuschlagen. Versuchen 
Sie’s, auch wenn Sie wenig Erfolg haben werden. Der Cursor 
dient nun nur noch dazu, den eingegebenen Text zu bearbeiten. 
Dazu dürfen und können Sie den Text nicht mehr verlassen. Be- 
wegen Sie den Cursor nun ganz nach links, indem Sie die 
LINKS-Taste gedrückt halten. Am linken Bildschirmrand 
angekommen stoppt der Cursor, als ob er gegen eine Wand 
schlägt. Die gleiche Reaktion erfolgt, wenn Sie wieder nach 
rechts wandern. Hinter dem letzten Buchstaben scheint auch eine 
Wand zu sein. Warum diese Einschränkung der Cursorbewegung? 
Um dies zu begründen, müssen Sie sich im Klaren sein, wozu Sie 
überhaupt etwas auf dem Bildschirm schreiben. Es gibt ver- 
schiedene Gründe, wie z.B. die Programmerstellung. Zum 
Schreiben eines Programms, wozu wir später noch kommen wer- 
den, geben Sie einzelne Programmzeilen ein. Jede Programmzeile 
wird mit einer bestimmten Taste (RETURN) dem Rechner 
übergeben. Es ist unsinnig, eine angefangene Programmzeile an 
irgendeiner anderen Stelle des Bildschirms fortzusetzen. Erst die 
Übergabe der Zeile gibt den Cursor wieder frei. 


Kommen wir wieder zum "computerfreund" zurück. An jeder be- 
liebigen Stelle dieses Wortes können Buchstaben eingefügt wer- 
den. Dazu muß der Cursor auf den Buchstaben positioniert wer- 
den, vor den ein weiterer Buchstabe oder Zeichen eingefügt wer- 
den soll. Dieser sogenannte Einfüge-Modus ist ständig 
eingeschaltet. Bei manchen anderen Rechnern muß dieser Modus 
zunächst eingeschaltet werden. Ändern wir nun das Wort 
"computerfreund" um in "heimcomputer-freund". Bewegen Sie 
dazu den Cursor an den linken Rand des Bildschirms. 
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Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
d Locomotive Software Ltd. 
BASIC 1.1 


Ready 
compüterfreund 





Der Cursor befindet sich nun auf dem Buchstaben ’c’, vor dem 
noch die Silbe "heim" eingegeben werden muß. Drücken Sie dazu 
nun nacheinander die Buchstaben ’h’, ’e’, ’i’ und ’m’. 


Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
d Locomotive Software Ltd. 
BASIC 1.1 


Ready 
heimcomputerfreund 

















Mit jedem Buchstaben wird der Text links vom Cursor um eine 
Stelle nach links geschoben. Der Cursor beibt jedoch auf dem ’c’. 
Nun müssen wir noch den Bindestrich einfügen. Sicher wissen Sie 
schon längst, wie dies geschieht. Sie setzen den Cursor auf das ’f’ 
und drücken die Taste ’-’ (rechts von der Taste ’0°). 
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Schneider 128K Microcomputer (v3) 


1985 Amstrad Consumer Electronics _plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 
heimcomputer-£freund 





Wenn der Cursor nun wieder ganz nach rechts geschoben wird, 
kann die Eingabe des Textes fortgesetzt werden. Es wurde bereits 
erwähnt, daß eine Eingabe mit der Taste ’RETURN’ 
abgeschlossen wird. Wenn Sie jedoch in unserem Beispiel diese 
Taste drücken, meckert der CPC. Mit der Meldung "Syntax error" 
sagt er "was Du mir hier übermittelt hast, verstehe ich überhaupt 
nicht". Ist auch klar, denn die einzige Sprache, die Ihr CPC6128 
spricht, ist BASIC, und die müssen Sie erst lernen, um mit ihm 
zu arbeiten. Bis dahin sind es nur noch wenige Seiten. 


Sie haben nun den Einfügemodus kennengelernt. Wenn Sie noch 
ein bißchen üben, werden Sie sicher bald das "Einfügen" perfekt 
beherrschen. 


LÖSCHEN DES BILDSCHIRMS 


Stellen Sie einmal fest, daß das, was sich auf dem Bildschirm 
befindet, eigentlich alles unbrauchbares Kauderwelsch ist, so 
wischen Sie einfach alles weg. HALT!! nicht mit dem 
Fensterleder, damit können Sie vielleicht den Staub vom Bild- 
schirm wischen, nicht jedoch die eingetippten und somit im 
Rechner gespeicherten Daten des Bildschirms. Schließlich ist es 
für einen Rechner, der ca. 1 Million Befehle pro Sekunde abar- 
beiten kann, ein Kinderspiel, "mal eben" die 1000 Zeichen auf 
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dem Bildschirm auf Befehl zu löschen. Viele andere Rechner 
halten zum Löschen des Bildschirms eine Taste bereit. Beim 
CPC6128 ist es nicht ganz so komfortabel, da hier vier Tasten- 
drücke notwendig sind. Das BASIC des CPC6128 hält einen 
Befehl bereit, der dem Rechner befiehlt "lösche den gesamten 
Bildschirm". Dieser Befehl lautet ’CLS’, was wie alle Befehle aus 
dem englischen (Clear Screen) kommt. Wie Sie bereits gelernt 
haben, müssen Sie die Befehle mit der ’RETURN’-Taste ab- 
schließen. Geben Sie also den Befehl ’CLS’ gefolgt von der Taste 
’RETURN’ ein. Ihr CPC gehorcht Ihnen aufs Wort und löscht den 
Bildschirm. Die Meldung ’Ready’ bedeutet wieder, daß der Rech- 
ner auf weitere Eingaben wartet. Diesen Befehl sollten Sie sich 
merken, da er im weiteren Verlauf dieses Buches noch öfter ge- 
braucht wird. 


DIE TASTEN MIT BUCHSTABEN 





Wie bereits erwähnt, gleicht die Anordnung dieser Tasten bis auf 
kleine Abweichungen der einer Schreibmaschine. Konzentrieren 
wir uns zunächst auf diese Buchstaben. Wenn Sie irgendeine 
dieser Tasten drücken, so erscheint der entsprechende Klein- 
buchstabe an der Cursor-Position auf dem Bildschirm. Bevor 
wir diese Tasten einsetzen, löschen Sie bitte den Bildschirm mit 
dem Befehl ’CLS$’. 


Nun haben wir einen "sauberen" Bildschirm, auf dem wir edi- 
tieren können. Bitte geben Sie nun keine Unmengen von Texten 
ein in der Hoffnung, daß Ihr Computer alles, zu jeder Zeit 
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abrufbereit, in seinen Speicher aufnimmt. Ganz so einfach ist es 
nicht. Das, was Sie eingeben, wird lediglich im flüchtigen 
Bildschirmspeicher festgehalten. Wie man eingegebene Texte 
abspeichern kann, erfahren Sie in unserer BASIC-Einführung. 


Schreiben Sie jetzt einmal alle Buchstaben auf dem Bildschirm, 
vielleicht sogar in alphabetischer Reihenfolge. Sie werden 
feststellen, wie schwer doch zu Anfang der ein oder andere 
Buchstabe zu finden ist, wenn man nicht gerade Sekretärin ist. 
Auf dem Bildschirm befinden sich nun alle verfügbaren Klein- 
buchstaben. 


Schneider 128K Microcomputer (v3) 


1985 Amstrad Consumer Electronics plc 
and Locomotive Software Ltd. 
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Ready 
abcdefghijklmnopqrstuvwxyz_ 





Löschen Sie wieder den Bildschirm und geben nochmals alle 
Buchstaben ein. Doch nun nicht in alphabetischer Reihenfolge, 
sondern wie sie auf der Tastatur angeordnet sind. Also zunächst 
die obere Reihe (Q bis P), dann die mittlere Reihe (A bis L) und 
schließlich die untere Reihe (Z bis M). Sicher fällt Ihnen diese 
Reihenfolge viel leichter. 


DieT r 1 
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Ready 
qwertyuiopasdfghjklzxcvbnn_ 





GROSS/KLEINSCHRIFT 





Sie haben bereits festgestellt, daß jeder Buchstabe, den Sie 
eingeben, auf dem Bildschirm als Kleinbuchstabe erscheint. Oft 
und vor allem in der Textbearbeitung werden auch 
Großbuchstaben benötigt. Auf der Schreibmaschine gibt es eine 
Taste, die zusätzlich gedrückt werden muß, um Großbuchstaben 
zu drucken. Beim CPC ist dies nicht anders. Die Taste ’°SHIFT’, 
die Sie zweimal auf der Tastatur finden, ist für die 
Großbuchstaben zuständig. Halten Sie also diese Taste fest, wenn 
Sie Großbuchstaben wünschen. Schreiben Sie nun einmal Namen 
"Karl Schmidt" auf dem Bildschirm. Die Großbuchstaben werden 
wie bereits bekannt mit der SHIFT-Taste eingegeben. 
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Schneider 128K Microcomputer (v3) 


1985 Auatrad Consumer Electronics plc 
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Read 
Karl Schmidt_ 





Wir haben bereits alle Kleinbuchstaben auf dem Bildschirm 
geschrieben. Lassen Sie uns nun auch die Großbuchstaben in 
alphabetischer Reihenfolge eingegeben. Damit Sie nicht die 
SHIFT-Taste gedrückt halten müssen, gibt es eine weitere Hilfs- 
taste (CAPS LOCK). Wenn Sie diese Taste einmal drücken, er- 
scheinen alle folgenden Buchstaben in Großschrift. 


Schneider 128K Microcomputer (v3) 
1985 Amstrad Consumer Electronics plc 


and Locomotive Software Ltd. 
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Ready 
ABCDEFGHIJKLMNOPORSTUVWXYZ_ 





Drücken Sie die Taste CAPS LOCK ein weiters Mal, so können 
wieder Kleinbuchstaben eingegeben werden. 


Die Tastatur 21 


DIE LEERTASTE 





Auch diese Taste finden Sie an jeder Schreibmaschine wieder. 
Auch bei Ihrem Computer brauchen Sie nicht darauf zu 
verzichten, Leerzeichen zwischen die Wörter zu setzen. Befindet 
sich an der Stelle, an der ein Leerzeichen erscheinen soll, bereits 
ein anderes Zeichen, so wird dieses natürlich gelöscht. 


Löschen Sie den Bildschirm und geben den folgenden Satz ein: 
Uebung macht den Meister 


Hier müssen Sie zwischen den einzelnen Wörtern die Leertaste 
drücken. 


Schneider 128K Microcomputer (v3) 
1985 Amstrad Consumer Electronics plc 


and Locomotive Software Ltd. 
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Ready , 
UVebung macht den Meister_ 
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DIE DEL - TASTE 





Die Abkürzung dieser Taste sagt bereits viel über die Funktion 
aus. DEL bedeuted DELETE (löschen). Mit der Taste DEL kann 
das Zeichen links vom Cursor gelöscht werden. Dies ist besonders 
hilfreich beim Korrigieren von Tippfehlern. Ein Druck auf die 
Taste DEL und das falsch eingetippte Zeichen ist wieder gelöscht. 


Löschen Sie nun den Bildschirm und tippen den folgenden Satz 
ab: 


Tippfehler sind unverzeihlicj 


Bei der Eingabe des letzten Buchstabens ist ein Fehler unter- 
laufen. 
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Schneider 128K Microcomputer (v3) 


1985 Anstrad Consumer Electronics plc 
and Locomotive Software Ltd. 
BASIC 1.1 


Ready 
Tippfehler sind unverzeihlicj_ 





Tipp-Ex ist hier nicht notwendig. Auf Tastendruck wird der 
zuletzt eingegebene Buchstabe gelöscht. Drücken Sie dazu die 
Taste DEL. 


Schneider 128K Microcomputer (v3) 
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Read! 
Tippfehler sind unverzeihlic_ 





Nun können Sie hier den richtigen Buchstaben einsetzen, und der 
Tippfehler ist vergessen. 
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Ready 
Tippfehler sind unverzeihlich_ 





Doch dieses Beispiel zeigt nicht den überragenden Vorteil dieser 
Taste. Spielen wir ein weiteres Beispiel durch. Geben Sie, nach- 
dem Sie den Bildschirm gelöscht haben, den folgenden Satz ein: 


Tippfehler sind unverrzeihlich 


Auch hier hat sich ein Tippfehler eingeschlichen: Zwei ’r’ sind 
hier nicht angebracht. 
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Read' 
Tippfehler sind unverrzeihlich_ 
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Es ist nicht notwendig, das letzte Wort ab dem Tippfehler 
nochmal zu schreiben. Wird nämlich ein Zeichen links vom 
Cursor mit der Taste DEL gelöscht, so werden automatisch alle 
Zeichen in dieser Zeile, die sich rechts vom Cursor befinden, 
nachgerückt. Das ist nicht einfach zu erklären, sehen Sie darum 
selbst: 


Bewegen Sie den Cursor hinter das zu löschende ’r’ des fehler- 
haften Satzes. Dazu drücken Sie die Tasten CURSOR-LINKS. 


Schneider 128K Microcomputer (v3) 
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Read' 
Tippfehler sind unverrzeihlich 





Wenn Sie nun die Taste DEL drücken, wird das ’r’ links neben 
dem Cursor gelöscht und der Rest, einschließlich des Zeichens 
unter dem Cursor, nach links aufgerückt. 


Schneider 128K Microcomputer (v3) 
1985 Amstrad Consumer, Electronics plc 
Vv 


and Locomotive Software Ltd. 
BASIC 1.1 


Read 
Tippfehler sind unverzeihlich_ 
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Wenn Sie nun den Cursor zum Ende dieses Satzes bringen, 
können Sie mit dem Schreiben fortfahren. Halten Sie dazu solange 
die CURSOR-RECHTS - Taste gedrückt, bis der richtige Punkt 
erreicht ist. 


DIE CLR - TASTE 





Die DEL - Taste hat wie gesagt die Funktionen, das Zeichen 
links vom Cursor zu löschen und das Zeichen unter sowie alle 
Zeichen rechts vom Cursor nachzurücken. Dies ist nicht die 
einzige komfortable Editierhilfe des CPC6128. Mit der Taste CLR 
werden Zeichen UNTER dem Cursor gelöscht und die Zeichen 
rechts vom Cursor nachgerückt. Dazu wieder ein Beispiel. Geben 
Sie nochmals einen fehlerhaften Satz ein: 
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Schneider 128K Microcomputer (v3) 
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Ready 
Das Wetter ist sehr gut_ 





Nun bemerken Sie, daß das Wetter eigentlich gar nicht so gut ist. 
Das Wort "sehr" soll entfernt werden. Sicher, Sie könnten es mit 
der Taste DEL löschen, wir wollen aber auch die Taste CLR 
kennenlernen. Da CLR das Zeichen unter dem Cursor löscht und 
die Zeichen rechts vom Cursor nach links aufrückt, müssen wir 
den Cursor auf das ’s’ von ’sehr’ positionieren. 


Schneider 128K Microcomputer (v3) 
1985 Amstrad Consumer Electronics plc 


and Leconotive Software Ltd. 
BASIC 1.1 


Read 
Das Vetter ist sehr gut 





Wenn Sie nun die CLR-Taste fünfmal drücken, wird das Wort 
’sehr’ gelöscht. 
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Mit den Tasten DEL und CLR verfügen Sie über zwei komfort- 
able Editierhilfen, die Ihnen bei der Erfassung der Programme 
und bei sonstigen Texteingaben sehr hilfreich zur Seite stehen 
werden. 


EINSTELLBARE ZEICHENDICHTE 


Sicher haben Sie bereits festgestellt, daß eine Zeile auf dem 
Bildschirm 40 Zeichen enthält. Auf den 25 Zeilen können somit 
insgesamt 1000 Zeichen untergebracht werden. Bei vielen anderen 
Computern dieser Klasse wird dies höchst ungern in Kauf 
genommen. Da wird mit allen möglichen Tricks versucht, anstatt 
der 40 Zeichen 80 in einer Zeile unterzubringen. Dies erfordert 
eine technisch aufwendige und dementsprechend teure Er- 
weiterung. 


Die Entwickler des CPC hatten sehr lichte Momente, als sie sich 
entschlossen, die Zeichendichte einer Zeile variabel zu gestalten. 
So kann der Anwender auswählen, ob er sich an 20, 40 oder gar 
80 Zeichen in einer Zeile erfreuen möchte, und zwar auf ein- 
fachste Weise mittels eines BASIC-Befehls. Wir haben bereits 
einen BASIC-Befehl kennengelernt, CLS. Dieser Befehl "putzt" 
alle Zeichen vom Bildschirm. Der Befehl zum Umschalten der 
Zeichendichte lautet ’MODE’. Da wir drei Auswahlmöglichkeiten 
haben, muß dem Befehl eine weitere Ziffer angestellt werden. 
Diese Ziffer besagt, welche der drei Zeichendichten ausgewählt 
wird. Somit gibt es drei verschiedene MODE-Befehle: 


MODE 0 - umschalten auf 20 Zeichen pro Zeile 
MODE 1 - umschalten auf 40 Zeichen pro Zeile 
MODE 2 - umschalten auf 80 Zeichen pro Zeile 


Lassen Sie uns nicht mehr länger auf den praktischen Einsatz 
dieses Befehls warten. Schalten Sie nun einmal den Bildschirm auf 
’MODE 0’. Beachten Sie, daß Sie diesen Befehl mit der Taste 
RETURN’ abschließen, da Sie sonst vergeblich auf eine Reaktion 
warten, erst die Taste ’RETURN’ gibt den Befehl zur Aus- 
führung frei. 
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"Das ist was für Sehbehinderte" werden Sie vielleicht denken, 
wenn das überdimensionale ’Ready’ erscheint. Sicher ist diese 
Schrift besser lesbar als etwa die bisherige 40 Zeichen- 
Darstellung. Man wird sie vor allem in Spielprogrammen ein- 
setzen. Wenn Sie etwa daran denken, diese Schrift z.B. als Pro- 
grammüberschrift zu nutzen und auf den restlichen Zeilen eine 
andere Zeichendichte einzusetzen, so muß ich Sie leider 
entäuschen. Auf einem Bildschirm kann immer nur eine Schriftart 
eingesetzt werden, da bei jedem MODE-Befehl der Bildschirm 
zunächst gelöscht wird. 


Kommen wir nun zu der zweiten Alternative, der 80 Zeichen- 
Darstellung. Den Befehl kennen Sie bereits aus der vorherigen 
Übersicht. Geben Sie den Befehl ’MODE 2° ein und beachten die 
Reaktion des Rechners. 
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Wenn Sie nun etwas auf dem Bildschirm schreiben, werden Sie 
feststellen, daß die kleinen Zeichen überraschend gut zu lesen 
sind. Wenn Sie dies nicht bestätigen können, haben Sie sicher 
einen Farbmonitor, denn nur der Grünmonitor bietet eine gute 
Auflösung der 80 Zeichen. Dies und die augenschonende Wirkung 
sind Vorteile eines Grünmonitors. Aber spätestens nach Einsatz 
der großen Farbenpracht des CPC werden die Vorteile eines 
Farbmonitors bewußt. Dies soll nicht etwa bedeuten, daß Sie zwei 
Monitore einsetzen sollen, auch wenn dies die optimale Lösung 
wäre. Ein guter Kompromiß ist der Einsatz eines Grünmonitors 
und eines HF-Modulators, der die Farbenpracht auch auf einem 
üblichen Fernseher präsentiert. 


DER KOPIERCURSOR 
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Mit jedem Computer können Texte, Programme und Daten fest- 
gehalten und zu jeder Zeit wieder geändert werden. Programme 
etwa werden nicht nur einmal geschrieben, oft müssen Änderun- 
gen vorgenommen werden. Damit Sie mit besten Voraussetzungen 
an die ersten Programmierversuche gehen können, lernen Sie 
schon jetzt, wie man bereits eingegebene Zeichenfolgen ändern 
kann. 


Lassen Sie uns ein Beispiel durchführen. Wir nehmen an, daß Sie 
den Befehl CLS eingeben möchten. Bei der Eingabe jedoch 
machen Sie einen Fehler und tippen ’cld’. Sie haben sich also 
beim letzen Buchstaben des Befehls vertippt. Führen Sie dieses 
Beispiel nun aus. 


Ready 
c 


Syntax error 
Ready 





Nun möchten wir den Befehl aber nicht nochmals eingeben, son- 
dern den noch auf dem Bildschirm gezeigten ändern. Andere ver- 
gleichbare Computer verfügen über einen sogenannten Bild- 
schirmeditor. Mit einem derartigen Editor kann man die Befehls- 
zeile mit dem Cursor nochmals aufsuchen, ändern und mit 
RETURN erneut abschicken. Dies ist beim CPC nicht möglich. 
Versuchen Sie es trotzdem. Fahren Sie mit dem Cursor auf das 
falsch eingegebene ’d’ und ersetzen es durch ein ’s’. Links vom 
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Cursor befindet sich nun der Befehl ’cls’. Drücken Sie nun die 
Taste RETURN, so wird der Bildschirm nicht etwa gelöscht, son- 
dern erneut die Fehlermeldung ausgegeben. 


Ready 

cels 

Syntax error 
Ready 





Der Grund dafür ist, daß alle Buchstaben der Zeichen eines 
Befehls eingegeben werden müssen, bevor man die RETURN- 
Taste betätigt. Bereits auf dem Bildschirm enthaltene Zeichen 
können nicht geändert oder ergänzt werden. Bei sehr langen 
Befehlszeilen, wie wir sie später noch kennenlernen werden, ist es 
sehr nachteilig, wenn man stets die gesamte Zeile neu eingeben 
muß. Mit dem CPC haben Sie eine Möglichkeit, sich diese Mühe 
zu ersparen. Dazu werden die benötigten Zeichen der "alten" Zeile 
zu einer anderen Position des Bildschirms kopiert. Um diese 
Methode zu beherrschen, ist ein wenig Übung nötig. Sie werden 
nun Schritt für Schritt in diese Technik eingeführt. Löschen Sie 
dazu zunächst den Bildschirm - diesmal mit dem richtigen Befehl 
- und geben erneut den falschen Befehl ’cld’ ein. 


hritt - RSOR zum Anfan r_ "neuen" Zeil 


Entscheiden Sie sich zunächst, wohin die "alte" Befehlszeile 
kopiert werden soll und bewegen Sie den Cursor zum Anfang 
dieser Zeile. In unserem Beispiel soll dies die 5. Bildschirmzeile 
sein. 


Ready 
Syntax error 
Ready 





hritt - IERCUR zum Anfan r "alten" Zeil 


Den bisher beschriebenen Cursor wissen Sie bereits zu be- 
herrschen. Was jedoch ist der Kopiercursor und wie wird er 
bewegt? Der Kopiercursor ist ein zweiter Cursor, der das gleiche 
Aussehen wie der übliche Cursor hat. Er wird ebenfalls mit den 
Cursortasten, jedoch zusammen mit SHIFT bewegt. Halten Sie 
nun die SHIFT-Taste gedrückt und betätigen die Cursor-OBEN - 
Taste, bis der Kopiercursor die "alte" Zeile erreicht hat. 


Ready 

< 

Syntax error 
Ready 
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3. Schritt - mit COPY-Taste gewünschte Zeichen kopieren 


Die Taste COPY bewegt den Kopiercursor sowie den normalen 
Cursor nach rechts und kopiert dabei die Zeichen unter dem 
Kopiercursor. Dies hört sich komplizierter an, als es eigentlich ist. 
Probieren Sie es selbst aus und drücken zweimal die COPY-Taste. 


Ready 

c 

Syntax error 
Ready 


cl_ 





Nun haben Sie die beiden ersten Zeichen des Befehls CLS 
kopiert. Der dritte Buchstabe darf nicht kopiert werden, sondern 
muß neu eingegeben werden. Sie drücken also nun die Taste ’s’. 


Ready 
Syntax error 
Ready 


cls_ 
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Der alte Befehl ist nun kopiert und geändert worden. Nun 
drücken Sie die Taste ’RETURN’und der Befehl wird ausgeführt. 
Mit der Taste RETURN’verschwindet auch der Kopiercursor. 


Neben dieser Methode zur Änderung bestehender Befehlszeilen 
gibt es eine weitere. Wir haben die "alte" Zeile an eine andere 
Bildschirmposition kopiert und geändert. Die andere Möglichkeit 
ist, die "alte" Zeile an Ort und Stelle zu ändern. Der Versuch, 
lediglich den Cursor an die zu ändernde Stelle zu bringen, schlug 
fehl. Führen wir nun auch diese zweite Möglichkeit Schritt für 
Schritt aus, nachdem wir erneut den falschen Befehl ’cld’ 
eingeben. 


l hritt - RSOR zum Anfan r_ "alten" Zeil 
Wir positionieren den Cursor also nicht an eine andere Stelle, 


sondern zum Anfang der zu ändernden Zeile. 


Read 
ja 


Syntax error 
Ready 





2, Schritt - PY- is zum ersten falschen Zeichen 


Nun drücken Sie die COPY-Taste zweimal. Dabei werden die 
ersten beiden Zeichen an die gleiche Stelle kopiert, da die Posi- 
tion des Kopiercursors und des normalen Cursors identisch ist. Sie 
müssen also die COPY-Taste und nicht die Cursor-RECHTS - 
Taste drücken. 


Ready 
Syntax error 
Ready 





Das dritte Zeichen wird nun wieder nicht übernommen, sondern 
durch ein ’s’ ersetzt. Drücken Sie also nun die Taste ’s’. 


Ready 
S tax error 
Rlady 





Dieser nun fehlerfreie Befehl kann mit der Taste RETURN’ aus- 
geführt werden. Sie haben nun zwei Möglichkeiten zum 
Ändern von bestehenden Bildschirmzeilen kennengelernt, wobei 
die zweite Methode etwas einfacher erscheint. Welche von beiden 
Sie einsetzen, sollten Sie von Fall zu Fall entscheiden. 


Vieleicht haben Sie doch noch Schwierigkeiten beim Einsatz des 
Kopiercursors. Lassen Sie uns deshalb ein weiteres, umfang- 
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reicheres Beispiel durchführen. Geben Sie dazu zunächst die fol- 
gende Wortfolge ein, nachdem Sie den Bildschirm gelöscht haben. 
Drücken Sie danach RETURN. 


rag macht 





Aus dieser Wortfolge wollen wir mit Hilfe des Kopiercursors den 
Satz "Kopieren macht Spass" basteln. Da die Wortfolge keine 
eigentliche Befehlszeile darstellt, müssen wir den "Syntax error" 
nach der Taste ’RETURN’ in Kauf nehmen. Doch dies soll uns 
zum Erreichen unseres Ziels nicht irritieren. 


Der richtige Satz soll in der 6. Bildschirmzeile erscheinen. Dazu 
bewegen Sie den Cursor zum Anfang dieser Zeile. 


Elise, Ss aus macht 
gr err 
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Nun müssen wir den Kopiercursor zum Anfang des ersten zu 
kopierenden Wortes bringen. Dazu halten Sie die SHIFT-Taste 
gedrückt und bewegen den Kopiercursor mit den Cursortasten. 


Rea 

Bellen Spass macht 
Syntax error 

Ready 





Nun können wir das erste Wort kopieren. Drücken Sie dazu 
wieder die COPY-Taste, bis der Kopiercursor auf dem ’S’ des 
Wortes ’Spass’ steht. Das Leerzeichen soll also auch kopiert 
werden. 


Ready 

Kopieren Spass macht 
Syntax error 

Ready 


Kopieren _ 





Die Tastatur 39 


Jetzt soll das zweite Wort kopiert werden. Dazu müssen wir 
wieder den Kopiercursor zum Anfang des Wortes ’macht’ bringen. 
Drücken Sie also SHIFT und Cursor-RECHTS sechsmal. 


ss Spass macht 
tax err‘ 


RE e 





Anschließend wird dieses Wort kopiert, indem Sie wieder die 
COPY-Taste drücken, und zwar sechsmal. Der letzte Tastendruck 
ist notwendig, damit ein Leerzeichen übernommen wird. 


Kopfören Spass macht _ 
Rangex error 


Kopieren macht _ 





Übernehmen Sie nun selbständig das letzte Wort "Spass". Also 
Kopiercursor bewegen und COPY-Taste drücken! Nachdem alles 
erfolgreich verlaufen ist, gleicht Ihr Bildschirm dem folgenden 
Foto: 


Ready 

Kopieren Spass_macht 
Syntax error 
Ready 


Kopieren macht Spass_ 





Haben Sie es geschafft? Gratulation! Wenn Sie nun noch kleine 
weitere Übungen machen, werden Sie diese Technik sicher bald 
beherrschen. Sie müssen nur immer darauf achten, daß Sie das 
Bewegen der beiden Cursor nicht verwechseln. Sonst kommen Sie 
in Situationen, die Sie erst nach einiger Routine zu meistern 
wissen werden. 
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KAPITEL 2: 
DER ERSTE BEFEHL 


Zur weiteren Erklärung der Tastatur reicht es nun nicht mehr 
aus, irgendwelche Zeichen auf dem Bildschirm zu schreiben. Die 
wenigsten unserer Leser erwarben Ihren CPC6128 für diesen 
Zweck. Für alle diejenigen, die sich im letzten Kapitel etwas 
langweilten, wird es in diesem Kapitel interessanter. Wir wollen 
nun den Computer dafür nutzen, wofür er ja einzig und allein 
vorgesehen ist, nämlich zur Ausführung von Befehlen. 


DIE RETURN-TASTE 





RETURN ist die wichtigste Taste an Ihrem Rechner. Wenn Sie 
diese Taste drücken, wird der eingegebene Text an den Rechner 
übergeben. Der Rechner interpretiert diese Zeile als Befehl und 
leitet die notwendigen Schritte ein. Nach Abschluß des Befehls 
meldet sich der Rechner, wie nach dem Einschalten, mit 
’READY’ wieder. Er ist also wieder bereit zur Aufnahme 
weiterer Instruktionen. Versuchen Sie nun einmal, den Rechner 
zu begrüßen. Geben Sie den Text "GUTEN TAG" ein und 
drücken anschließend die Taste RETURN. Was meinen Sie, wird 
Ihr Rechner antworten? Doch sehen Sie selbst. 
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Hier erscheint die erste Fehlermeldung Ihres CPC6128, der 
SYNTAX ERROR (Syntax-Fehler.. Die Syntax, also die 
Zusammensetzung der Zeichen, wird vom Computer nicht 
verstanden. Zwar gibt es heutzutage Großrechner, die sich weit- 
gehend mit dem Menschen über eingegrenzte Themen 
"unterhalten" können, jedoch erfordert dies eine Anlage mit 
huntertausendfachem Preis und Speicherkapazität. Das, was Sie 
mit der Tastatur eingeben und mit RETURN "abschicken", wird 
vom BASIC-Interpreter analysiert und bei fehlerfreier Eingabe 
ausgeführt. 


Ihr CPC6128 ist mit der Programmiersprache BASIC ausgerüstet 
und versteht somit nur Befehle dieser Sprache. BASIC ist die am 
meisten verbreitete Programmiersprache, die gerade dem An- 
fänger optimale Voraussetzungen zum Programmieren bietet. Die 
Befehle sind weitgehend der englischen Sprache angelehnt. Wie 
schnell kann ich diese Sprache erlernen? Dies ist eine beliebte 
Frage, die jedoch nicht hundertprozentig beantwortet werden 
kann. Viele Kriterien spielen hier eine Rolle. Einmal ist die 
Lernfähigkeit des Anfängers ausschlaggebend, zum anderen ist 
die Zeit von Bedeutung, die man am Rechner investiert. Da gibt 
es Leute, die jede freie Minute dem hochverehrten Computer 
widmen. Zeitungsanzeigen wie "Verkaufe meinen Computer, 
Scheidung droht" sind keine Seltenheit mehr. Grundsätzlich gilt 
es, ein gesundes Maß an Zeit zu opfern, um das Hobby der Pro- 


Der erste B 4 


grammierung in BASIC zur hellen Freude werden zu lassen. Mit 
einem gewissen Grundwissen in Mathematik, das vielleicht bis zu 
den Grundlagen der Algebra reicht, können bei einem 
wöchentlichen Zeitaufwand von ca. 10 Stunden schon nach etwa 
drei Monaten die ersten Erfolgserlebnisse verbucht werden. Zwar 
trägt das logische und abstrakte Denkvermögen mit zum Erfolg 
bei, jedoch wird sich dies auch von Programm zu Programm 
ständig weiterentwickeln. Zum Erstellen von anspruchsvollen Pro- 
grammen wie z.B. einer kleinen Textverarbeitung oder einer 
Dateiverwaltung sind neben der Programmierkenntnis die Pro- 
grammiererfahrung unerläßlich. Von Programm zu Programm 
steigert sich erfahrungsgemäß die Qualität des Programmierstils. 
Ein kleiner Anhaltspunkt für Sie: Viele haben schon drei Monate 
nach Erwerb ihres ersten Computers viel Freude am Entwickeln 
von kleinen Spielen gehabt. Solange die Begeisterung da ist, wer- 
den auch Sie bald einer der vielen Hobby-Programmierer sein. 


DER PRINT-BEFEHL 


Ohne diesen Befehl ist kaum ein Programm denkbar. Er über- 
nimmt die gesamte Ausgabe in einem Programm. Ob Sie nun ein 
Rechenergebnis auf dem Bildschirm oder eine Adresse auf das 
Kassettenlaufwerk ausgeben wollen, ohne diesen Befehl läuft 
nichts. Auch die gesamte Druckausgabe wird vom Befehl ’PRINT’ 
übernommen. 


Zur Zeit wenden wir uns nur dem Direkt-Modus zu, wir 
schreiben also noch keine Programme. Direkt-Modus bedeutet, 
Sie geben Befehle ein, schließen sie mit RETURN ab und 
erwarten ein sofortiges Ergebnis. Dies wollen wir nun erstmalig 
ohne Fehlermeldung durchführen. Geben Sie nun den Befehl 
’print 10° gefolgt von RETURN ein. 
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PRINT leitet also alles, was dem Befehl als Parameter angefügt 
wird, zum Bildschirm (die Ausgabe auf externe Geräte erfolgt 
mit einer anderen Form des PRINT). Parameter sind Bestandteile 
eines Befehls, die genau beschreiben, welche Auswirkungen der 
Befehl haben soll. 


Hier war die Zahl ’10° der Ausgabeparameter. ’print 10° bedeutet 
also ’zeige die Zahl 10 auf dem Bildschirm’. Natürlich können Sie 
nicht nur Zahlen, sondern auch andere beliebige Zeichen aus- 
geben. Wie vielseitig dieser Befehl ist, stellen Sie spätestens im 
weiteren Verlauf dieses Kapitels fest. 


RECHNEN MIT PRINT 


Wenn Sie einmal ausrechnen möchten, wieviel Lohnsteuer Sie 
wohl zurückerstattet bekommen und gerade keinen 
Taschenrechner zur Hand haben, schalten Sie den CPC6128 ein! 
Ich selbst schalte auch oft den Rechner nur für kleine Berech- 
nungen ein. Viele meiner Bekannten haben dann oft ironisch 
gefragt: "Was, rechnen kann man damit auch?". Das wäre ja auch 
ein Unding, wenn man mit einem Computer, der immerhin das 
zwanzigfache eines Taschenrechners kostet, nicht rechnen könnte. 


Doch nun zur Sache. Wenden wir uns zunächst den vier Grund- 
rechenarten zu. Hierfür gibt es auf der Tastatur vier Symbole: 


+ für Addition 

- für Subtraktion 
für Multiplikation 
für Division 


Nur ist das Rechnen mit Ihrem Computer nicht vergleichbar mit 
einem Taschenrechner. Hier können Sie z.B. nicht ’12*2=’ 
eingeben, da bekanntlich ohne Befehl nichts läuft. Es gibt immer 
experimentierfreudige Leser, die dies trotzdem versuchen werden. 
Was dann geschieht, ist etwas verwirrend. Versuchen Sie es selbst. 
Geben Sie ’2*12=’ ein und schicken diesen "Befehl" mit der Taste 
’RETURN?’ ab. 





Was dann geschieht, ist ohne vorzugreifen schwer zu erklären. 
Der Rechner zeigt nicht das Ergebnis, sondern meldet sich mit 
READY wieder. Der Cursor springt zum Anfang der nächsten 
Zeile. Aber was geschieht dazwischen? Der Rechner muß etwas 
ausgeführt haben, da er sonst eine Fehlermeldung ausgegeben 
hätte. Ich möchte hier nicht zu weit ausholen. Doch ich muß 
etwas vorgreifen. Ein Programm besteht aus mehreren Zeilen, 
die nach Programmstart hintereinander abgearbeitet werden. Jede 
dieser Zeilen ist am Anfang mit einer Zahl gekennzeichnet, die 
die Reihenfolge beim Ablauf bestimmt. In diesem Fall wurde die 
Programmzeile 12 mit dem Inhalt ’*2=’ eingegeben. Dies ist zwar 
kein korrekter Befehl, jedoch wird das nicht bei der Eingabe der 
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Zeile erkannt, sondern erst beim Ablauf des Programms. Doch 
lassen Sie uns dies zunächst einmal ignorieren. 


Wie wird nun °’12*2’ korrekt errechnet und ausgegeben? Die 
Lösung ist einfach: Geben Sie dazu den Befehl ’print 12*2’ ein. 
Beachten Sie: Immer wenn Sie einen Befehl eingeben, müssen Sie 
diesen mit RETURN abschließen. Was Sie auf dem Bildschirm 
schreiben, ist dem Rechner egal. Ihn interessiert nur das, was Sie 
ihm mit RETURN zur Ausführung überlassen. 





Das Ergebnis entlockt Ihnen vielleicht das erste "AHA". Ihr 
Rechner hat zum ersten Mal für Sie gearbeitet. Er folgte treu 
Ihrer Anweisung, 12 mit 2 zu multiplizieren und das Ergebnis auf 
dem Bildschirm anzuzeigen. 


Nebenbei möchte ich bemerken, daß Programmiersprachen 
eigentlich nur kompliziert erscheinen, weil Sie die Anweisungen 
an den Rechner wesentlich verkürzen müssen. Jede Programmier- 
sprache muß bis ins letzte Detail klar organisiert sein. Eine 
Programmiersprache, die Anweisungen wie ’RECHNE 2*12 UND 
ZEIGE ERGEBNIS’ akzeptiert, gibt es nicht und wird es auch 
nie geben. Verdrängen Sie bitte derartige Erwartungen. Ganz so 
einfach ist das Programmieren auch nicht. Wenn Sie es be- 
herrschen, dürfen Sie sich nicht umsonst selbst auf die Schulter 
klopfen. 
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Entgegen dem BASIC anderer Computer muß das Leerzeichen 
hinter dem PRINT hier unbedingt angegeben werden, da sonst 
ein ’Syntax error’ gemeldet wird. Doch nicht nur hier, sondern 
grundsätzlich nach jedem Befehl. Dies werden Sie im weiteren 
Verlauf des Buches schnell erlernen. Doch nun weiter mit den 
Grundrechenarten. Berechnen Sie nun hintereinander ’12+2°, ’12- 
2’, *12*2’ und ’12/2°. Ihr Bildschirm sollte nachher dem folgenden 
Bildschirm gleichen: 


print 12+2 
14 


Ready 
print 12-2 
10 


Batet 12*2 
Read 
print 12/2 
Ready 





Haben Sie es geschafft? Gut, dann dürfen Sie wieder eine Sprosse 
höher auf die Erfolgsleiter zum Hobby-Programmierer steigen. 
Nein, dann lesen Sie bitte den letzten Abschnitt nochmals 
aufmerksam durch. 


Neben solch simplen Berechnungen können Sie auch lange 
Berechnungen bis zu 255 Zeichen anstellen! Beachten Sie jedoch 
die Hierarchie bei solchen Berechnungen: Punktrechnung geht 
stets vor Strichrechnug. Geben Sie nun dem Rechner die Auf- 
gabe, das Ergebnis von ’1+2+3+4+5+6+7+8+9’ zu ermitteln. 
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Ready 
print 1+2+3+4+5+6+7+8+9 
Ready 





DIE KLAMMERRECHNUNG 





Es besteht also die Möglichkeit, beliebige Kettenrechnungen 
durchzuführen. Ein praktisches Beispiel: Es soll der Gesamtpreis 
von drei Teppichstücken ermittelt werden. Der Quadratmeterpreis 
beträgt 23,80 DM. Das erste Stüvk umfaßt 2.45 m * 2.80 m, das 
zweite Stück 4.50 m * 3.85 m und das dritte Stück 2.75 m * 4.80 
m. Zusätzlich soll 14% Mehrwertsteuer addiert werden. Wie hoch 
ist nun der Gesamtpreis für diese drei Teppichstücke? Wenn Sie 
die Klammern richtig setzen, genügt ein PRINT-Befehl: 


print (2.45%*%2.8+14.5%3.85+2.75%4.8)*#23.8%*1.14 
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Das sieht komplizierter aus, als es eigentlich ist. Innerhalb der 
Klammer werden die Quadratmeter ausgerechnet. Dann wird die 
Quadratmeteranzahl mit dem Quadratmeterpreis multipliziert. 
Schließlich wird noch die Mehrwertsteuer hinzugerechnet. Und 
das alles mit einem Befehl! Bei korrekter Eingabe erhalten Sie 
den Wert 1014.32982, also den Preis 1014.33 DM. 


Wie Sie bereits erkannt haben, wird der Punkt und nicht das 
Komma als Dezimalpunkt benutzt. Das ist zwar eine 
amerikanische Norm, wird jedoch auch an deutschen Rechnern 
praktiziert. Wenn Sie das Komma in Verbindung mit der Klam- 
merrechnung eingeben, z.B. print (9+23,8)*2, so erscheint 
die Fehlermeldung SYNTAX ERROR. 


Ba ange 





EXPONENTIALSCHREIBWEISE 


Der Rechner stellte das Ergebnis mit 5 Nachkommastellen dar. Es 
ist eine sogenannte Fließ- oder Gleitkommazahl. Grundsätzlich 
wird auf neun Stellen genau gerechnet. Ergibt sich eine Zahl mit 
drei Stellen vor dem Komma, so wird automatisch auf 6 Stellen 
nach dem Komma gerechnet. Sollte die Zahl 999999999 über- 
schreiten, so wird wieder auf neun Stellen genau gerechnet. Eine 
größere Zahl erhält dann einen Zusatz, der die Größe des echten 
Ergebnisses kennzeichnet. Geben Sie z.B. einmal die Rechnung 
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PRINT 999999999+1 ein. Das Ergebnis ist eine zehnstellige 
Zahl, die nicht mehr normal dargestellt werden kann. 


Ready 
pr n 999999999+1 
Ready 





Verzweifeln Sie nicht bei diesem Ergebnis. Es bedeutet einfach, 
daß das Ergebnis ’I * 10 hoch 9 ergibt, also eine I mit 9 Nullen. 
’E+09’ bedeutet Basis 10, Exponent +9. Der Exponent kann aber 
auch negativ sein. Die Rechnung ’PRINT 9/30000000000’ 
bestätigt dies. 


Ready 

print 9/30000000000 
3E-10 

Ready 
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Obwohl das Ergebnis eigentlich 0.0000000003 lauten sollte, 
benutzt der Rechner die Exponentialschreibweise. ’3E-10O’ist 
gleichbedeutend mit 3 * 10 hoch -10°. Die Zahl 3 befindet 
sich also an zehnter Stelle nach dem Komma. Das ist vorerst alles, 
was Sie über das Rechnen mit den vier Grundrechenarten im 
Direkt-Modus wissen sollten. Weitere mathematische Funktionen 
finden Sie in Ihrem Handbuch zum CPC6128. 


TEXTAUSGABE MIT PRINT 





Neben Zahlen können auch Texte, sogenannte Strings 
(Zeichenketten), mit PRINT ausgegeben werden. Voreilige Ver- 
suche wie PRINT HALLO werden kläglich scheitern. 


Ready 
print hallo 
Ready 
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Obwohl der Befehl nicht den gewünschten Erfolg verbuchen 
kann, erscheint keine Fehlermeldung. Der Rechner hat den Befehl 
also ausgeführt. Nur was hat er ausgeführt? Woher die Null? Dies 
sind Probleme, die bei den ersten Gehversuchen mit BASIC 
immer wieder auftreten. Die Fragen sind, ohne vorzugreifen, 
schwer zu beantworten. Es wird der Inhalt einer Variablen 
(rechnerinterner Zahlenspeicher) angezeigt. Die Bezeichnung 
dieses Speichers ist HALLO. Da wir in der Variablen HALLO 
nicht abgelegt haben, wird der Wert 0 ausgegeben. Sollten Sie dies 
nicht ganz verstanden haben, so ist das kein Grund zur 
Beunruhigung. Die Variablen werden später noch ausführlich be- 
handelt. 


Doch wie kann man nun Zeichenketten (bleiben wir im weiteren 
Verlauf beim Fachwort Strings), wie kann man Strings nun mit 
PRINT ausgeben? Die Lösung ist einfach: Strings werden in An- 
führungszeichen eingeschlossen. Setzen Sie dies nun in die Tat um 
und ändern den letzten Befehl. Geben Sie den String HALLO nun 
wie folgt in Anführungszeichen an: 


PRINT "HALLO" 


Na also, nach dem ersten Fehlversuch hat es nun doch geklappt. 
Der Rechner wünscht Ihnen einen guten Tag (er macht bekannt- 
lich all das, was Sie von ihm verlangen=. 


Übrigens: Wenn Sie bisher allzu zaghaft mit Ihrem Rechner 
umgegangen sind und jeden Befehl vorher dreimal überlegten, um 
ja nichts kaputt zu machen, so kann ich Sie beruhigen. Kein noch 
so fehlerhafter Befehl kann Ihrem Rechner Qualmwolken ent- 
locken. In kaum einem anderen Hobby ist die Weisheit "aus 
Fehlern lernt man" so angebracht wie bei Ihrem. Ein Elektronik- 
Bastler, der die 45 Mark- Endstufe eines selbstgebauten 
Verstärkers falsch einlötet, beißt sicher in den Teppich. Wenn Sie 
jedoch einen Fehler in Ihrem 23 KByte-Programm verursachen, 
so kann er in fünf Minuten wieder korrigiert sein. Der einzige 
und gleichzeitig schlimmste Fehler ist, wenn Sie z.B. acht Stunden 
hintereinander an einem Programm gearbeitet haben und die 
Mutter den defekten Staubsauger einschaltet. Ein Kurzschluß hat 
hier große Auswirkung, nämlich acht Stunden verschenkte Arbeit. 
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Auch können Sie z.B. eine wichtige und wertvolle Kassette durch 
unsachgemäße Behandlung zerstören. Doch wenn Sie die 
wichtigsten Richtlinien zur Datensicherung beachten, kann nichts 
schiefgehen. 


VEREINFACHTE PRINT-EINGABE 


Anstelle des Befehls PRINT kann man auch ein Fragezeichen 
eingeben. Geben Sie anstelle des Befehls PRINT das 
Fragezeichen ein, so ersparen Sie sich damit etwas Arbeit, zumal 
der Befehl PRINT der am häufigsten verwendete Befehl ist. Es ist 
also egal, ob Sie nun ’PRINT 3*7’ oder ’? 3*7’ eingeben. Pro- 
bieren Sie es selbst einmal aus. Hinter dem Fragezeichen ist kein 
Leerzeichen erforderlich. 





Es liegt nun an Ihnen, ob Sie den PRINT-Befehl ausschreiben 
oder das Fragezeichen verwenden. Bei Berechnungen, die "mal 
eben" eingetippt werden, ist das Fragezeichen recht praktisch. 
Man kann damit ebenso schnell rechnen wie mit einem Taschen- 
rechner. 
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PI UND POTENZIERUNG 


Wenden wir uns nun wieder der Mathematik zu. Die Konstante PI 
dürfte jedem bekannt sein. Bei der Kreis- und Kugelberechnung 
wird sie meistens benötigt. Welchen Wert hat denn nun PI? War 
es 3.1412 oder 3.1214 oder ....... ? Zerbrechen Sie sich nicht den 
Kopf. Meist wird mit 3.14 gerechnet, also auf zwei Stellen nach 
dem Komma. Der CPC6128 hält diese Konstante für 
Berechnungen bereit. Rufen Sie das PI einmal auf den 
Bildschirm. Geben Sie dazu ’PRINT PT’ ein. 














PI auf acht Stellen genau! Das ist vollkommen ausreichend. 
Berechnen Sie nun einmal den Umfang eines Kreises mit dem 
Durchmesser von 12 cm. Die Formel laute: Umfang = 
Durchmesser * PI. 





Der Kreisumfang beträgt also rund 37.7 cm. 


Nun zur Potenzierung. Potenzierung bedeutet, eine Zahl mit sich 
selbst malzunehmen. Der Exponent (die Hochzahl) bestimmt, wie- 
oft die Basis (Grundzahl) mit sich selbst multipliziert werden soll. 


2 hoch 3 bedeutet 2*2*2, also 8 
10 hoch 4 bedeutet 10*10*10*10, also 10000 


Im ersten Beispiel ist ’2’ die Basis und ’3’° der Exponent. Doch 
nun Schluß mit dem Mathematik-Nachhilfeunterricht. Beim 
CPC6128 wird zur Potenzierung zwischen der Basis und dem 
Exponent ein ’Pfeil nach oben’ gesetzt. Rechnen Sie nun einmal 2 
hoch 8 aus. 
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Das war sicher nicht schwer. Berechnen Sie nun die Kreisfläche 
des Kreises mit dem Durchmesser von 12 cm. Die Formel lautet: 
Kreisfläche = Radius hoch 2 mal PI (Radius ist der halbe 
Durchmesser). 





Die Kreisfläche beträgt also ca. 113 qcm. Doch nun genug von 
der trockenen Mathematik. Wenden wir uns nun wieder intere- 
ssanteren Sachen zu. 
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KOMBINIEREN VON STRINGS MIT ZAHLEN 





Die Tasten ’;’ und ’,’ spielen eine große Rolle, wenn Strings und 
Zahlen kombiniert werden sollen. Aber welche? Wenn Sie z.B. 
eine Zeile wie "2.5 mal 2.5 = 6.25" ausgeben wollen, bei der das 
Ergebnis gleichzeitig errechnet werden soll, so wird ein String 
und eine anschließende Berechnung benötigt. Die Lösung sieht 
dann wie folgt aus: 


Ready 

prin "2.5 mal 2.5 =";2.5%2.5 
.5 mal 2.5 = 6.25 

Ready 





Das Semikolon trennt also Strings von Zahlen. Doch nicht nur 
das, auch Strings und Zahlen bzw. Berechnungen können unter- 
einander durch das Semikolon getrennt werden. So können Sie 
z.B. mehrere Berechnungen mit einem PRINT-Befehl ausführen 
und die Ergebnissse nebeneinander anzeigen. Versuchen Sie nun, 
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die Potenzen der Zahl ’2’ vom Exponent ’1’ bis zum Exponent ’8’ 
zu berechnen und nebeneinander in einer Zeile anzuzeigen. 


Ready 

print 211;212;213;214;215;216 
2 A 8 16 32 64 128 25 

Ready 


217;218; 


; 
6 





Ein mit SEMIKOLON abgeschlossener PRINT-Befehl hat zur 
Folge, daß ein weiterer PRINT-Befehl nicht in der nächsten 
Zeile, sondern in der gleichen Zeile hinter dem ersten PRINT 
erfolgt. Doch hierzu erfahren Sie später mehr. 


Geben Sie nochmals den letzten Befehl ein, ersetzen aber alle 
Semikoli durch Kommata. 


Ready 

123 n BELTBIITENETZTETRTITEROLERT LEID 
16 
128 

Ready 
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Das Komma trennt auch die einzelnen Werte, aber mit größerem 
Abstand. Wenn Sie die Abstände auszählen, so werden Sie 
feststellen, daß der Abstand zwischen den Ziffern jeweils 13 
Zeichen beträgt. Dadurch wird eine leicht formatierte Ausgabe 
von Zahlenkolonnen ermöglicht. Zur Trennung von Strings wird 
das Komma nur selten genutzt. 


TRENNEN VON BEFEHLEN 





Eine Befehlszeile kann aus maximal 255 Zeichen bestehen. 
BASIC-Befehle erreichen diese Länge sehr selten. Mit dem Dop- 
pelpunkt kann man nun Befehle voneinder trennen und somit 
mehrere Befehle in einer Programmzeile oder einer direkt 
eingegebenen Befehlszeile darstellen. Ein Beispiel soll hier 
Klarheit schaffen. Sie wollen zwei Berechnungen mit einem 
RETURN durchführen. Die Ergebnisse sollen untereinander er- 
scheinen. In unserem Beispiel berechnen wir einmal 3042*PI und 
einmal 30*PI. Versuchen Sie nun zwei PRINT-Befehle in einer 
Zeile unterzubringen, getrennt durch den Doppelpunkt. 


pi:print 30*pi 





Sie können natürlich auch drei oder vier Befehle eingeben und 
durch Doppelpunkt trennen. Es ist nur darauf zu achten, daß 255 
Zeichen nicht überschritten werden. 


Hier läßt sich auch sehr gut die Wirkung des Semikolons nach 
dem ersten PRINT-Befehl verdeutlichen. Löschen Sie den Bild- 
schirm und geben Sie die beiden PRINT-Befehle nochmals ein. 
Setzen Sie hinter das erste PRINT ein Semikolon. 
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Das Semikolon hinter dem ersten PRINT bewirkt, daß diese Zeile 
noch nicht abgeschlossen wird. Das zweite PRINT erfolgt 
unmittelbar hinter dem ersten PRINT. Die leeren Stellen zwischen 
den Zahlen kommen dadurch zustande, daß vor der ersten Ziffer 
der Zahl ein Zeichen für das Vorzeichen freigehalten wird. Eine 
positive Zahl wird jedoch nicht mit ’+ gekennzeichnet, sondern 
nur eine negative Zahl erhält als erstes Zeichen ein Minus (-). 


Beachten Sie, daß das Leerzeichen nach dem Doppelpunkt keine 
Bedeutung hat. Ob hier ein Leerzeichen, fünf oder überhaupt 
keins enthalten ist, hat keine Auswirkung auf den Befehl. 
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KAPITEL 3: 
DAS ERSTE PROGRAMM 


Mit dem ersten Programm ist nicht etwa die ARD gemeint, son- 
dern Ihre ersten Gehversuche bei der Programmierung in BASIC. 
Verdrängen Sie Ihren eventuellen Unmut, dieses "heiße Eisen" 
anzufassen. BASIC ist eine Programmiersprache für den 
Einsteiger, vor der niemand allzu großen Respekt zu haben 
braucht. Die Tatsache, daß in Kaufhäusern und Computerläden 
oft Kinder anzutreffen sind, die nach der Schule ihre Zeit mit 
BASIC vertreiben, sollte die letzten Hemmungen beiseite 
schieben. Seien Sie kein ewiger Anwender, der seine ganze Zeit 
den Fertigprogrammen widmet. Mal ehrlich, haben Sie nicht auch 
oft daran gedacht, eigene Programme zu entwickeln? Dieses und 
das folgende Kapitel soll für Sie ein kleiner Schritt in die große 
und interessante Welt der Programmierung sein. 


EIN PROGRAMM, WAS IST DAS? 


Auf Fachchinesisch wird ein Programm als eine "Folge von Be- 
fehlen zur Lösung einer bestimmten Aufgabe" definiert. Diese 
Folge von Befehlen ist es also, die in logisch richtiger 
Zusammensetzung ein Programm ergibt. Der Weg zu einem Pro- 
gramm führt also von der Aufgabenstellung über die logische 
Befehlsfolge zum Ziel, nämlich dem Programm. Logisch richtig 
bedeutet, daß nicht nur sämtliche BASIC-Befehle bekannt sein 
müssen, sondern daß sie erst durch ausgetüftelte Zusammen- 
stellung zur Problemlösung führen. So ist es z.B. sinnlos, eine 
Unmenge von englischen Vokabeln zu kennen, wenn Sie diese 
nicht durch sinnvolle Zusammensetzung zur Kommunikation 
nutzen können. 
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DIE ZEILENNUMERIERUNG 


Ein Programm ist also eine Folge von Befehlen. Doch wodurch 
wird die Reihenfolge bestimmt? Nun, bei der Programmier- 
sprache BASIC wird jede Befehlszeile (auch Statement genannt) 
mit einer Nummer versehen, die die Reihenfolge bestimmt, mit 
der das Programm ablaufen wird. Stellen Sie sich z.B. Ihr im 
Gehirn gespeichertes Programm zur Lösung der Rechenaufgabe 
’48/12’ mit dem Taschenrechner vor. Sie werden feststellen, daß 
auch hier eine gewisse Reihenfolge eingehalten werden muß: 


Suche Taschenrechner. 

Schalte Rechner ein. 

Wenn Batterie leer, dann Punkt 12. 
Drücke die Taste ’4°. 

Drücke die Taste ’8°. 

Drücke das Operationzeichen für Divison. 
Drücke die Taste ’1’. 

Drücke die Taste ’2°. 

{ Drücke die Taste ’=’. 

10. Lese Ergebnis ab. 

11. Speicher Ergebnis im Kleinhirn. 
12. Schalte Rechner aus. 
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Erstaunlich, aus wieviel Einzelschritten doch eine so simple 
Tätigkeit zerlegt werden kann. Sie erkennen, daß alle Schritte 
numeriert sind, um die Reihenfolge festzulegen. Doch dies ist 
nicht der einzige Grund. Der Schritt Nummer 3 schneidet eine 
wichtige Programmierlogik an, den Sprungbefehl. Wenn eine 
bestimmte Bedingung erfüllt ist (Batterie leer?), verzweigt das 
Programm zum Schritt 12. Diese Zahl ist die sogenannte Adresse 
des Befehls. Ohne Zeilennumer wäre es also nicht möglich, 
bestimmte Befehle gezielt anzuspringen. 


Wir haben im vorherigen Kapitel bereits einen Befehl kennen- 
gelernt, den PRINT-Befehl, mit dem Daten auf dem Bildschirm 
ausgegeben werden. Diesen Befehl setzten wir jedoch nur im 
Direkt-Modus ein, d.h. der Befehl wird nach dem RETURN 
direkt ausgeführt. Wir wollen nun eine Folge von drei PRINT- 
Befehlen als Programm codieren. Was ist zu tun? Richtig, jeder 
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Befehl erhält eine Zeilennummer, die bestimmt, in welcher 
Reihenfolge das Programm abgelaufen wird. 


DIE ZEILENNUMMERN DÜRFEN BEIM CPC6128 IM 
BEREICH VON 0 BIS 65535 LIEGEN. DIE SCHRITTWEITE 
IST OHNE BEDEUTUNG. 


Die Schrittweite bestimmt, um welche Zahl die Folgezeile größer 
als die vorherige Zeile ist. So kann ein vierzeiliges Programm z.B. 
aus den Zeilennummern 1, 8, 10, 20 bestehen. Auch die Reihen- 
folge 100 ‚200 ‚300 ‚400 ist möglich. Die Schrittweite darf also 
innerhalb eines Programms variieren. 


Doch wozu ist eine Schrittweite von größer als 1 nützlich. Ist 
doch klar, wenn zwischen zwei Zeilen in einem Programmn noch 
eine Zeile eingefügt werden soll, so muß die Schrittweite 
zwischen diesen beiden Zeilen größer als 1 sein, da Zeilen- 
nummern immer ganzzahlig sind. Zwischen der Zeile 11 und der 
Zeile 12 kann keine Zeile mehr eingefügt werden. Zwischen den 
Zeilennummern 11 und 15 jedoch gibt es mehrere Möglichkeiten, 
eine Zeile "einzumogeln". Diese Zeile erhält die Nummer 12, 13 
oder 14 und wird automatisch zwischen den Zeilen 11 und 15 
eingeordnet. In der Praxis hat sich eine Schrittweite von 10 be- 
währt. 


Doch nun zu unserer Aufgabe, die wie folgt aussehen soll: 


1. Lösche den Bildschirm. 
2. Gebe den Text "18 GETEILT DURCH 6 ERGIBT:" aus. 
3. Gebe das Ergebnis unmittelbar hinter dem Text aus. 


Zur Lösung der Aufgabe sollen drei BASIC-Zeilen verwendet 
werden. Wie geht man nun diese Aufgabenstellung an? Zunächst 
muß die erste Zeiennummer ausgewählt werden. In unserem 
Beispiel soll dies die Zeile 100 sein. Wir geben dazu die Zahl 100 
gefolgt von dem Befehl zum Löschen des Bildschirms ein. Er- 
innern wir uns: Der Befehl zum Bildschirmlöschen heißt ’CL$S’. 
Diese Zeile sollte dann wie folgt aussehen: 
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Ready 
100 ls 


HINTER JEDER ZEILENNUMMER MUSS EIN LEERZEICHEN 
ENTHALTEN SEIN. 


Dies ist nun die erste Zeile unseres Programms. Die zweite Zeile 
soll eine Zeichenkette ausgeben. Dies erfolgt bekanntlich mit dem 
Befehl PRINT. Wir arbeiten mit einer Schrittweite von 10. Die 
zweite Zeile erhält demnach die Nummer 110. Geben Sie diese 
Zeile nun ein. 


y 
cl 
Print "18 geteilt durch’ 6 ergibt"; 
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Hinter dem String wird hier ein Semikolon gesetzt, damit der fol- 
gende PRINT noch in dieser Zeile, also hinter dem Text aus- 
gegeben wird. 


Die dritte Zeile sollten Sie nun alleine ermitteln. Es soll 18/6 
berechnet und ausgegeben werden. 


eady 
00 © 
10 printrng geteilt durch 6 ergibt"; 
20 print 18/ 


R 
1 
1 
I 






































Nun ist das Programm fertig und muß nur noch gestartet zu wer- 
den. 


PROGRAMMSTART 


Der CPC6128 hat die soeben eingegebenen Programmzeilen nicht 
nur auf dem Bildschirm, sondern auch in seinem BASIC-Speicher 
festgehalten. Auch wenn Sie den Bildschirm. löschen, geht das 
Programm nicht verloren. Es kann zu jeder Zeit gestartet werden. 


DER BEFEHL 'RUN’ STARTET EIN BASIC-PROGRAMM 


Geben Sie nun den Befehl ’RUN’ ein und beachten Sie, was auf 
dem Bildschirm geschieht. 
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18 geteilt durch 6 ergibt 3 
Ready 





Dieses Programm ist für den Anfänger ein erstes Erfolgserlebnis. 


Sie können dieses Programm nun so oft starten, wie es Ihnen 
gefällt. Überzeugen Sie sich selbst: Geben Sie nochmals ’RUN’ 
ein und nochmals und.... 


PROGRAMMÄNDERUNG 


Es kann durchaus vorkommen, daß an einem Programm Än- 
derungen vorgenommen werden müssen. Stellen Sie sich vor, Sie 
möchten mit dem zuletzt eingegebenen Programm nicht 18/6, 
sondern 24/6 berechnen. Dazu müssen Sie nicht etwa alle drei 
Zeilen nochmals eingeben, sondern Sie können die bestehenden 
Zeilen an den entsprechenden Stellen abändern. Dazu müssen Sie 
aber erst wieder das Programm auf den Bildschirm holen. 


DER BEFEHL ’LIST’ ZEIGT DIE PROGRAMMZEILEN AUF 
DEM BILDSCHIRM AN 


"Schon wieder ein neuer Befehl" werden Sie vielleicht denken. 
Doch dies wird mit Sicherheit nicht der letzte sein. Um in BASIC 
zu programmieren, müssen Sie mit den wichtigsten Befehlen ver- 
traut sein. 
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Geben Sie nun den Befehl ’LIST’ gefolgt von der Taste RETURN 
ein und beobachten, was geschieht. Ihre soeben eingegebenen 
Programmzeilen erscheinen auf dem Bildschirm. Sicher haben Sie 
bemerkt, daß Ihr Rechner die Befehle des Programms in 
Großschrift verwandelt hat. Dies dient der Übersichtlichkeit des 
Listings. Als "Listing" bezeichnet man übrigens ein ausgegebenes 
Programm auf dem Bildschirm oder auf dem Drucker. 


Was Sie noch wissen sollten: Wenn größere Programme aufgelistet 
werden, so "scrollt" der Bildschirm. Scrollen bedeutet, es werden 
von unten Zeilen nachgeschoben, wobei gleichzeitig die obersten 
Zeilen verschwinden. Um dieses Scrollen anzuhalten, drücken Sie 
die Taste ’ESC’. Eine beliebige andere Taste setzt das Listing fort. 
Drücken Sie zweimal hintereinander die Taste ’ESC’, um das 
Listing abzubrechen. 


Kommen wir nun auf die Programmänderung zurück. Um die 
Zeilen nun zur Berechnung von 24/6 abzuändern, haben Sie zwei 
Möglichkeiten: 


1. Die Methode mit dem Copy-Cursor 
2. Die Methode mit dem Befehl EDIT 


Mit dem COPY-CURSOR sind Sie schon zu Anfang des Buches 
konfrontiert worden. Dies soll uns jedoch nicht daran hindern, 
diese Methode nochmals durchzuspielen. Die zu ändernde Zeile 
befindet sich auf dem Bildschirm. Bewegen Sie den COPY- 
CURSOR mit Hilfe der SHIFT-Taste zum Anfang dieser Zeile: 


100 CLS 
419 PRINT "18 geteilt durch 6 ergibt"; 
20 PRINT 18/6 





Drücken Sie nun die COPY-Taste bis zum ersten zu ändernden 
Zeichen: 


00 CLS 
110 PRINT 18° geteilt durch 6 ergibt"; 
120 PRINT 18/6 
Ready 
110 PRINT"_ 





An dieser Stelle erfolgt die erste Änderung der Zeile. Geben Sie 
nun die Zahl ’24’° ein. Damit bei nochmaligem Drücken der 
COPY-Taste nicht die ’18° mit übernommen wird, bewegen Sie 
den COPY-CURSOR auf das Leerzeichen nach der ’18’° (SHIFT 
nicht vergessen!) 
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EN 
RIN 8 teilt d "; 
Int Tide gete urch 6 ergibt"; 


RINT "24_ 





Nun kopieren Sie den restlichen Teil der Zeile mit der COPY- 
Taste, drücken RETURN, und die Änderung der Zeile ist 
abgeschlossen. Damit das anschließende Ergebnis auch stimmt, 
müssen wir noch die Zeile 120 ändern. Verfahren Sie hierzu wie 
bei der Zeile 110. Sicher, es ist nicht ganz einfach, die Methode 
mit dem COPY-Cursor zu beherrschen, doch auch hier bringt’s 
die Übung. Ich selbst hatte meine Probleme, diese außergewöhn- 
liche Editierung zu beherrschen, doch nun möchte ich nicht mehr 
darauf verzichten. 


Wenden wir uns nun der zweiten Methode zur Programmänderung 
zu. Der Befehl ’EDIT’ ruft eine bestimmte Zeile zur Änderung 
auf den Bildschirm. Geben Sie nun den Befehl ’EDIT 110’ ein 
(RETURN nicht vergessen!): 
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d 
edit’ 110 
110 PRINT "24 geteilt durch 6 ergibt"; 





Die Zeile 110 wird angezeigt und der Cursor befindet sich am 
Anfang dieser Zeile. Bewegen Sie nun den Cursor zu dem ersten 
zu ändernden Zeichen. In diesem Beispiel wollen wir aus der ’24° 
wieder eine ’18° machen. Wenn Sie nun die Zahl 24 eingeben, 
werden Sie folgendes beobachten: 


Ready 
edit 110 
110 PRINT "1824 geteilt durch 6 ergibt"; 





Die Zahl ’24° wurde nicht mit der Zahl ’18° überschrieben, son- 
dern es wurde eingefügt. Der EDIT-Befehl arbeitet grundsätzlich 
im Einfügemodus. Die Zahl ’24° muß also nun noch gelöscht wer- 
den. Dazu verwenden Sie die Taste ’CLR’, die bekanntlich das 


72 D rste Progr 


unter dem Cursor befindliche Zeichen löscht. Drücken Sie diese 
Taste nun zweimal: 


Ready 
edit 110 
110 PRINT "18 geteilt durch 6 ergibt"; 





Wenn alle Änderungen abgeschlossen sind, drücken Sie RETURN. 
Überzeugen Sie sich davon, daß diese Zeile auch wirklich geän- 
dert wurde. Geben Sie dazu den Befehl ’LIST’ ein. 


Sie haben nun zwei Methoden zur Programmänderung kennen- 
gelernt. Entscheiden Sie selbst, welche Sie in Zukunft verwenden 
werden. 


VERZWEIGUNG 


Programme werden nur selten wie im letzten Beispiel stur von 
vorne nach hinten abgearbeitet. Oft werden, meist zu bestimmten 
Bedingungen, Zeilen übersprungen und an anderer Stelle fortge- 
setzt. Hier ist ein Sprung erforderlich. 


DER BEFEHL ’GOTO’ SPRINGT ZU EINER ANGEGEBENEN 
ZEILE 


In BASIC gibt es den Befehl ’GOTO’, der eine beliebige Zeilen- 
nummer anspringt. 
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Lassen Sie uns dies gleich in die Praxis umsetzen. Bekanntlich 
endet das Programm nach der Zeile 120. Was geschieht, wenn wir 
danach, z.B. in Zeile 130 wieder in die Zeile 110 springen? Ich 
behaupte, es wird ununterbrochen "18 GETEILT DURCH 6 
ERGIBT 3" ausgegeben. Doch sehen Sie selbst. Geben Sie die 
Zeile ’130 GOTO 110’ ein und starten das Programm mit ’RUN’. 


durch 6 ergibt 3 
durch 6 ergibt 3 


18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 
18 





Wir haben mit der Zeile 130 eine sogenannte Endlosschleife 
erstellt, da das Programm ständig die Zeilen 110 bis 130 durch- 
läuft. Wenn wir nun nicht eingreifen, läuft das Programm noch 
stundenlang so weiter. 


DIE TASTE ’ESC’ UNTERBRICHT DEN PROGRAMMABLAUF 


Drücken Sie nun die Taste ’ESC’, so hält das Programm an. Eine 
beliebige andere Taste läßt das Programm wieder fortfahren. 
Wollen Sie das Programm abbrechen, so drücken Sie die Taste 
’ESC’ zweimal. Der Rechner meldet ’BREAK IN ...",und zeigt 
somit an, in welcher Zeile das Programm angehalten wurde. In 
welcher Zeile das Programm nun gestoppt wird, ist rein zufällig. 


Soll der Programmablauf fortgesetzt werden, so ist auch hierfür 
ein Befehl vorgesehen. Fortsetzen heißt auf englisch "continue". 
Da BASIC-Befehle der englischen Sprache angelehnt sind, heißt 
der entsprechende Befehl ’CONT’. 
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DER BEFEHL ’CONT' SETZT DEN PROGRAMMABLAUF 
NACH EINER UNTERBRECHUNG FORT 


Geben Sie nun diesen Befehl ein. Das Programm befindet sich 
wieder in der Endlosschleife und kann wiederum mit der Taste 
’ESC’ unterbrochen oder abgebrochen werden. 


SPEICHERN UND LADEN VON PROGRAMMEN 


Wenn Sie den Rechner nun ausschalten, so ist das Programm ver- 
loren. Da Sie sicherlich nicht nach jedem Einschalten des Geräts 
das gewünschte Programm eintippen möchten, können die Pro- 
gramme auf dem eingebauten Diskettenlaufwerk abgelegt werden. 
Speichern wir nun unser Programm (Formatieren von Disketten 
ist in Kapitel 8 beschrieben). Nun bestimmen Sie einen Namen 
für das Programm, der maximal 8 Zeichen lang sein darf. 
Nehmen wir den Namen "TEST". Der Befehl zum Speichern des 
Programms lautet ’°SAVE’. Geben Sie nun den entsprechenden 
Befehl ein: 


Ready 
save "test"_ 





Wenn Sie das Programm nun wieder laden und starten möchten, 
so benutzen Sie den Befehl LOAD. 
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Ready 
load "test"_ 





Sollte Ihnen der Name des Programms entfallen sein, so können 
Sie den Inhalt der Diskette mit dem Befehl CAT auf dem 
Bildschirm anzeigen lassen. 


Das Programm wird mit RUN gestartet. Dem Befehl RUN kann 
noch eine Zeilennummer angefügt werden. Hier ein Beispiel: 


Befehl Funktion 

RUN startet ein bereits im Speicher 
befindliches Programm 

RUN 100 startet ein bereits im Speicher 
befindliches Programm ab der Zeile 
100 


Das Programm wird also nicht wie gewohnt bei der ersten Zeile, 
sondern bei dieser hinter dem Befehl angegebenen Zeile gestartet. 


So, das war zunächst alles, was Sie an Informationen zum 
Speichern und Laden mit dem Diskettenlaufwerk benötigen. Im 
Kapitel ’DAS DISKETTENLAUFWERK’ wird an späterer Stelle 
auf weitere Möglichkeiten eingegangen, die dieses Laufwerk 
bietet. 
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LÖSCHEN EINES PROGRAMMS 


Wie bereits bekannt, wird das Programm beim Ausschalten des 
Rechners gelöscht. Doch dies ist sicherlich nicht die einzige 
Möglichkeit. 


DER BEFEHL 'NEW' LÖSCHT DAS IM SPEICHER 
BEFINDLICHE PROGRAMM 


Geben Sie nun den Befehl ’NEW’ ein, so wird das Programm 
gelöscht. Man sollte natürlich das zu löschende Programm vorher 
abspeichern. 


Für alle skeptischen Leser: Wenn Sie nach dem ’NEW’ den Befehl 
’LIST’ eingegeben, so werden Sie feststellen, daß das Programm 
wirklich gelöscht wurde. Es werden keine Zeilen mehr angezeigt. 
Auch der Befehl ’RUN’ ist nun wirkungslos. 


Sie haben nun die ersten Grundlagen zur Erstellung eines Pro- 
gramms erworben, was für Sie der Grundstein zum Erarbeiten 
der anschließenden, etwas anspruchsvolleren Kapitel sein wird. 
Wenn Sie in diesem Kapitel etwas überfordert wurden, so 
empfiehlt es sich, dieses Kapitel nochmals durchzuarbeiten. 


Progr jierhilfen 77 
KAPITEL 4: 
PROGRAMMIERHILFEN 


Das umfangreiche BASIC Ihres CPC6128, auf das Sie wirklich 
stolz sein können, war Grund für dieses Kapitel. Nicht jeder 
Rechner weist in der Standardversion Befehle vor, die das 
Erstellen und Bearbeiten von Programmen um ein erhebliches 
Maß erleichtern. Da gibt es Befehle zum gezielten Löschen von 
Zeilen, zur automatischen Zeilennumerierung, um nur zwei der 
im folgenden beschriebenen Programmierhilfen zu nennen. Jeder, 
der sich beim Erstellen seiner Programme vom Komfort des 
BASIC 1.0 verwöhnen lassen möchte, sollte dieses Kapitel nicht 
ungelesen lassen. 


AUTOMATISCHE ZEILENNUMERIERUNG 


Beim Erstellen von Programmen ist die Schrittweite meist 10. Das 
Eingeben der Zeilenummer am Anfang jeder Zeile kann einem 
mit der Zeit ziemlich auf dem Wecker fallen. Dies haben auch die 
Schöpfer des in Ihrem Rechner enthalten BASICs erkannt und 
einen komfortablen Befehl zur automatischen Zeilennumerierung 
entwickelt. Schauen wir uns zunächst die Beschreibung dieses 
Befehls an: 


Problem: Automatische Zeilennumerierung 
Befehl: AUTO start,increment 
Parameter: start - Anfangszeile 

increment - Schrittweite 
Beispiel: AUTO 100,10 


Beginnend bei der Zeile 100 werden alle 
folgenden Zeilen mit der Schrittweite 10 
vorgegeben (100, 110, 120, 130, 140 ....) 
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Bemerkung: Die automatische Numerierung kann mit der 
Taste ’ESC’ abgebrochen werden. Ist eine 
einzugebene Zeile bereits vorhanden, so wird 
dies mit einem Stern (*) hinter der 
Zeilennummer signalisiert. Mit RETURN bleibt 
diese Zeile erhalten. 


Hier sehen Sie erstmalig eine genaue Beschreibung eines Befehls, 
wie sie auch im weiteren Verlauf des Buches bei jedem neuen 
Befehl zu finden ist. Es taucht ein Fremdwort auf, das Ihnen 
vieleicht nicht viel sagt: Parameter. Als Parameter bezeichnet man 
alles, was man dem Befehl übergibt, also hinten anhängt. So muß 
z.B. bei dem bereits bekannten Befehl ’LOAD’ ein Parameter 
angegeben werden, nämlich der Name des Programms. 


Doch zurück zum Befehl AUTO. Angenommen, Sie möchten die 
ersten Zeilen eines Programms eingeben, das bei der Zeile 10 be- 
ginnen und eine Schrittweite von 5 haben soll. Üblich ist, daß vor 
jeder einzugebenen Zeile die Zeilennummer angegeben wird. Die 
erste Zeile erhält somit die Nummer 10, die zweite die Nummer 
15 und so weiter. Diese Arbeit nimmt Ihnen wie gesagt der Be- 
fehl AUTO ab. Probieren Sie nun diesen Befehl aus und geben 
den folgenden Befehl ein: 


AUTO 10,5 


Sofort wird die erste Zeile (10) vorgegeben. Der Rechner wartet 
nun auf die Eingabe dieser Zeile. Geben Sie hier z.B. den Befehl 
’PRINT "Zeile 10" ein und beenden die Zeile mit RETURN. Nun 
wird die zweite Zeile (15) ausgegeben, deren Eingabe wiederum 
erwartet wird. Geben Sie hier den Befehl ’PRINT "Zeile 15” ein. 
Anschließend beenden Sie die Eingabe der Zeilen mit der Taste 
’ESC’. Die Meldung ’READY’ erscheint und signalisiert, daß die 
automatische Zeilennumerierung nicht mehr aktiv ist. 
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Geben Sie nun nochmals den Befehl ’AUTO 10,5’ ein, um eine 
Besonderheit des Befehls kennenzulernen. Der Rechner reagiert 
wie folgt: 


10% 


Was bedeutet nun der Stern? Wenn Sie die Beschreibung des Be- 
fehls nicht nur überflogen haben, so werden Sie sicher die Lö- 
sung kennen. Der Stern signalisiert, daß diese Zeile bereits 
vorhanden ist. Dies ist auch wichtig, sonst könnte man sein Pro- 
gramm unabsichtlich überschreiben. Wollen Sie, daß die Zeile 
uverändert bleibt, so drücken Sie nur die Taste RETURN’. Wenn 
die Zeile jedoch geändert werden soll, so geben Sie diese neue 
Zeile ein und drücken wieder ’RETURN’. Probieren Sie dies 
einmal aus und übernehmen die Zeile 10 zunächst mit RETURN’ 
und geben bei der Zeile 15 den Befehl ’PRINT "neue Zeile 15" 
ein. Danach beenden Sie den Befehl AUTO mit der Taste ’ESC’ 
und schauen sich das Ergebnis mit dem Befehl ’LIST’ an. 


Sie haben soeben eine Möglichkeit kennengelernt, die Eingabe 
Ihrer Programme zu vereinfachen. Nutzen Sie dies auch bei der 
Eingabe der Programmabschnitte in diesem Buch aus. 


UMNUMERIERUNG VON ZEILEN 


Wie Sie bereits wissen, hat die Schrittweite der Zeilennummern 
eines Programms keinen Einfluß auf den Programmablauf. Ob Sie 
die Zeilennummern um jeweils 1,5 oder 10 erhöhen, liegt allein 
in Ihrem Ermessen. Sie sollten jedoch beachten, daß eine zu 
kleine Schrittweite das Einfügen von Zeilen erschwert. Lassen Sie 
uns das Problem an einem praktischen Beispiel verdeutlichen: 
Geben Sie zunächst das folgende Programm ein: 


1 cL$ 

2 PRINT "Wir multiplizieren nun zwei Zahlen:" 
3 PRINT "Die erste Zahl ist 15" 

4 PRINT "Die zweite Zahl ist 12" 

5 PRINT "Das Ergebnis ist";15*12 


Programmierhil 


Wie Sie sehen, ist dieses Programm mit der Schrittweite von je- 
weils 1 numeriert worden. Das Programm erzeugt das folgende 
Ergebnis: 


wir multiplizieren nun zwei Zahlen: 
Die erste Zahl ist 15 

Die zweite Zahl ist 12 

Das Ergebnis ist 180 


Um diese Ausgabe optisch zu verbessern, soll die erste Zeile 
unterstrichen werden. Die Ausgabe auf dem Bildschirm soll dem- 
nach wie folgt aussehen: 


Wir multiplizieren nun zwei Zahlen: 
Die erste Zahl ist 15 

Die zweite Zahl ist 12 

Das Ergebnis ist 180 


Dazu muß hinter der Zeile 2 des Programms eine Zeile eingesetzt 
werden. Hier ist es erforderlich, die Zeilen hinter der Zeile 2 um 
eins zu erhöhen, um der neuen Zeile die Nummer 3 geben zu 
können. Das vollständige Programm ist dann dieses: 


1 CcLS 

2 PRINT "Wir multiplizieren nun zwei Zahlen:" 
3 PRINT #=--»-uonnnnnnnnuunnnn nennen nenn " 
4 PRINT "Die erste Zahl ist 15" 

5 PRINT "Die zweite Zahl ist 12" 

6 PRINT "Das Ergebnis ist";15*12 


Wie würden Sie nun dieses Problem angehen? Sicher würden Sie 
die Zeilen 3 bis 5 erneut mit der neuen Zeilennummer eingeben. 
Doch dies ist nicht im Sinne des Erfinders. Ihr komfortables 
BASIC hält dazu einen Befehl für Sie bereit, dessen Beschreibung 
wir uns zunächst ansehen wollen: 


Problem: Umnumerieren von Zeilen 

Befehl: RENUM neu, alt, increment 

Parameter: neu - neue Anfangszeile 
alt - alte Anfangszeile 
increment - neue Schrittweite 

Beispiel: RENUM 100,10,5 


Ab der Zeilennummer 10 des Programms wird 
mit der ersten Zeilennummer 100 und der 
Schrittweite 5 neu numeriert. 


Bemerkung: Die letzte Zeile des Programms darf nach der 
neuen Numerierung die Nummer 65535 nicht 
überschreiten, sonst wird der Befehl RENUM 
nicht ausgeführt und die Fehlermeldung 
"Improper argument" ausgegeben 


Dieser Befehl ist etwas komplizierter als die bisher beschriebenen. 
Doch dies soll uns nicht entmutigen. Sie sehen, daß diesem Befehl 
drei Parameter übergeben werden müssen. Da ist zunächst die 
Zeilennummer, die als erste zur Neunumerierung verwendet wird. 
Danach folgt die Zeilennummer, ab der neu numeriert werden 
soll. Sie müssen also nicht grundsätzlich das gesamte Programm 
neu numerieren. Der dritte Parameter gibt schließlich die neue 
Schrittweite an. 


Wie muß nun der Befehl RENUM aufgebaut sein, um in unserem 
Beispiel die Zeilen 3 bis 5 umzuwandeln in 4 bis 6? Bauen wir 
dazu den Befehl Schritt für Schritt auf. Zunächst muß die erste 
neue Zeilennnummer angegeben werden. Dies ist die Nummer 4; 
Die erste alte Zeilennummer stellt den zweiten Parameter dar und 
ist 3. Die neue Schrittweite soll weiterhin 1 betragen. Der gesamte 
Befehl lautet dann: 


RENUM 4,3,1 
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Dieser Befehl führt zum folgenden Erfolg, den Sie wieder mit 
LIST begutachten können: 


1 CLS 

2 PRINT "Wir multiplizieren nun zwei Zahlen:" 
4 PRINT "Die erste Zahl ist 15" 

5 PRINT "Die zweite Zahl ist 12" 

6 PRINT "Das Ergebnis ist";15*12 


Es wurde mit einem Befehl das gesamte Programm so gestaltet, 
daß nun Platz für die Zeile 3 ist, die wir nun eingeben können: 


3 PRINT Merseeenenennenennnnnnnnnnnnnnnnnnnn u 


Um derartige Probleme in Zukunft zu vermeiden, arbeiten wir 
mit der Schrittweite 10. Wie muß der Befehl ’RENUM?’ aufgebaut 
sein, um unser Beispielprogramm ab der Zeile 100 mit der 
Schrittweite 10 neu zu numerieren? Dies dürfte für Sie nun kein 
Problem mehr sein. Geben Sie dazu den folgenden Befehl ein: 


RENUM 100,1,10 


Der Befehl RENUM numeriert nicht nur die Zeilen, sondern 
führt auch etwas ganz wichtiges aus, er ändert die Sprungbefehle 
auf die Zeilen mit um. Was heißt das? Probieren wir dies aus. 
Geben Sie die letzte Zeile des folgenden Programms zusätzlich 
ein: 


100 CLS 

110 PRINT "Wir multiplizieren nun zwei Zahlen:" 
120 PRINT "---------- ou nennen nenn m 
130 PRINT "Die erste Zahl ist 15" 

140 PRINT "Die zweite Zahl ist 12" 

150 PRINT "Das Ergebnis ist";15*12 

160 GOTO 110 
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Wir haben mit dem letzen Befehl eine Endlosschleife erzeugt. 
Wenn wir nun das Programm neu numerieren, so erhält die Zeile 
110 eine andere Nummer. Der GOTO-Befehl darf aber nicht 
mehr in die Zeile 110 springen, da diese nach der neuen Nu- 
merierung sicher nicht mehr vorhanden ist. Um dies zu verhin- 
dern, ändert der Befehl RENUM nicht nur die Nummern am 
Anfang jeder Zeile, sondern auch die Sprungadresse auf diese 
Zeilen. Dies ist sehr wichtig, da der Befehl sonst nicht 
einzusetzen wäre. Überzeugen Sie sich sich davon, indem Sie den 
Befehl ’RENUM 10,100,5’ eingeben. Wenn Sie nun das Programm 
mit ’LIST’ ausgeben, bemerken Sie, daß die Sprungadresse hinter 
dem GOTO-Befehl ebenfalls sinngemäß geändert wurde. 


Sie beherrschen nun einen Befehl, der Ihnen in Zukunft oft hilf- 
reich zur Seite stehen wird. 


GEZIELTES LÖSCHEN VON ZEILEN 


Sie haben bereits den Befehl ’?NEW’ kennengelernt, der das im 
Speicher befindliche Programm löscht. Doch was, wenn nicht das 
gesamte Programm, sondern nur eine oder mehrere Zeilen 
gelöscht werden sollen? Das Löschen einer einzelnen Zeile 
bereitet keinerlei Schwierigkeiten. Sie geben einfach die Zeilen- 
nummer und anschließend RETURN ein. Um dies zu testen, 
löschen wir das alte Programm und geben ein neues ein. Verwen- 
den Sie dazu den Befehl AUTO: 


10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 
80 PRINT 
90 PRINT 
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Dieses Programm gibt zwar nur 9 Leerzeilen aus, was für unsere 
folgenden Übungen jedoch vollkommen ausreicht. Löschen Sie 
nun die Zeile 50, indem Sie diese Nummer gefolgt von der Taste 
’RETURN’ eingeben. Wenn Sie anschließend das Programm 
listen, so sehen Sie den Erfolg. Die Zeile 50 existiert nicht mehr. 
Was aber, wenn mehrere Zeilen, z.B. 20 bis 40 gelöscht werden 
sollen? Sicher, Sie können die Zeilen 20, 30 und 40 einzeln 
löschen, doch dies ist bei größeren Zeilenbereichen recht 
umständlich. Ein weiterer Befehl erleichtert uns diese Arbeit: 


Problem: gezieltes Löschen von Zeilenbereichen 

Befehl: DELETE anfang-ende 

Parameter: anfang - erste zu löschende Zeile 
ende - letzte zu löschende Zeile 

Beispiel: DELETE 40-130 


löscht die Zeilen 40 bis 130 
Nun haben Sie die Lösung: Um die Zeilen 20 bis 40 unseres 
Beispielprogramms zu löschen, geben Sie den folgenden Befehl 
ein: 


DELETE 20-40 


Es gibt mehrere Möglichkeiten, die beiden Parameter anzugeben. 
Sehen Sie dazu die folgende Tabelle: 


DELETE 10 löscht die Zeile 10 
DELETE 100-150 löscht die Zeilen 100 bis 150 
DELETE 150- löscht alle Zeilen ab einschließlich 150 


DELETE -100 löscht alle Zeilen bis einschließlich 100 
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Die Möglichkeit, den Zeilenbereich derartig zu variieren, ist 
ebenfalls für den Befehl LIST gegeben. Auch hier verdeutlicht 
die folgende Aufstellung, was gemeint ist: 


LIST 10 listet die Zeile 10 

LIST 100-150 listet die Zeilen 100 bis 150 

LIST 150- listet alle Zeilen ab einschließlich 150 
LIST -100 listet alle Zeilen bis einschließlich 100 
FUNKTIONSTASTEN 


Nun werden Sie eine der komfortabelsten Programmierhilfen 
kennenlernen. Oft ist es ärgerlich, häufig benutzte Befehle immer 
wieder eingeben zu müssen. Ihr CPC6128 bietet Ihnen die 
Möglichkeit, häufig benutzte Zeichenfolgen auf Tastendruck zu 
erzeugen. Dazu vorgesehen sind die 12 Tasten Ihres Ziffernblocks: 





Auf jede dieser Tasten können Sie nun eine Folge von maximal 
32 Zeichen legen, insgesamt jedoch nicht mehr als 120 Zeichen. 
Schauen wir uns dazu die Beschreibung des entsprechenden Be- 
fehl an: 
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Problem: Belegung der Funktionstasten 
Befehl: KEY n, string 
Parameter: n- Nummer der Funktionstaste 
string - Zeichenkette (max. 32 
Zeichen) 
Beispiel: KEY 0,"LIST" 


Legt den Befehl LIST auf die Funktionstaste 0. 


Bemerkung: Die Gesamtzahl der gespeicherten Zeichen darf 
120 nicht überschreiten. 


Ist der Befehl nicht äußerst interessant? Lassen Sie uns ihn gleich 
einsetzen. Auf dem Zifferntastenblock gibt es 13 Funktionstasten 
mit den Nummern 0 bis 12. Sicher werden Sie sich fragen, wie 13 
Funktionstasten mit 12 Tasten realisiert werden. Dies ist möglich, 
da die Taste ’ENTER’ des Tastenblocks zwei Funktionen hat. 
Eine durch normale Betätigung und eine zusammen mit der Taste 
’CTRL’. Das folgende Diagramm zeigt Ihnen, welche Nummern 
den Tasten zugewiesen sind: 





Die Taste ’. hat also die Nummer 10, die Taste ’ENTER’ die 
Nummern 11 und 12. Lassen Sie uns nun einige Tasten mit sinn- 
vollen Befehlen belegen. Der Befehl ’LIST’ wird oft benötigt. Wir 
legen ihn auf die Funktionstaste 0. Der folgende Befehl führt dies 
aus: 


KEY 0,"LIST" 
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Vergessen Sie nie das Leerzeichen zwischen dem Befehl und der 
Nummer! Ihr Rechner nimmt es Ihnen sonst übel (Syntax error). 
Drücken Sie nun die Funktionstaste ’0’, so erscheint der Befehl 
’LIST’ auf dem Bildschirm. Doch dieser Befehl wird noch nicht 
ausgeführt. Dazu müssen Sie die Taste RETURN’ drücken. Doch 
auch das ’RETURN’ können Sie mit der Funktionstaste auslösen. 
Dazu müssen Sie den internen Code für das ’RETURN’ mit 
einem speziellen Befehl, den wir später noch kennenlernen, an- 
hängen. Dieser Code ist 13. Der Befehl sieht dann wie folgt aus: 


KEY 0, "LIST"+CHR$ (13) 


Dieser Befehl bringt viel neues, das Sie nicht verwirren soll. 
Wichtig ist zunächst, was dieser Befehl bewirkt. Drücken Sie die 
Funtionstaste 0 und Sie werden sehen, daß der Befehl unmittelbar 
ausgeführt wird. 


Es gibt jedoch auch Befehle, denen man kein ’RETURN’ an- 
hängen sollte. Einer dieser Befehle ist ’?NEW’. Stellen Sie sich vor, 
dieser Befehl liegt mit angehängtem ’RETURN’ auf einer der 
Funktionstasten. Wenn Sie dann diese Funktionstaste versehentlich 
berühren, so wird Ihr Programm gelöscht. Hängen Sie also nur 
solchen Befehlen ein ’RETURN’ an, die durch Fehlbedienung 
nichts anrichten können. 


Sie haben bereits den Code für ’RETURN’ kennengelernt. In 
Verbindung mit den Funktionstasten ist ein weiterer Code 
wichtig, der des Anführungszeichens. Versuchen Sie einmal, den 
bereits bekannten Befehl ’RUN” auf die Funktionstaste 1 zu 
legen! Sie bekommen bestimmt graue Haare! Wo liegt das 
Problem? Der Befehl ’KEY 1,"RUN""” führt zum ’Syntax error’. 
Der Rechner erkennt das zweite Anführungszeichen als Ende der 
Zeichenkette an und weiß mit dem dritten gar nichts anzufangen. 
Wir müssen also hier den Code für das Anführungszeichen (34) 
verwenden! Der korrekte Befehl lautet dann: 


KEY 1, "RUN"+CHR$ (34) 
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Wenn nun auch noch ein ’RETURN’ angehangen werden soll, 
erscheint der Befehl recht komliziert: 


KEY 1,"RUN"+CHR$(34)+CHR$ (13) 
Sie müssen sich lediglich die beiden Codes 13 und 34 merken! 


Mit der Zeit werden Sie eine Standardbelegung Ihrer Funktions- 
tasten entworfen haben, die Sie nicht immer wieder nach dem 
Einschalten des Rechners belegen müssen. Sie können die 
Sammlung der KEY-Befehle in einem Programm festhalten, daß 
Sie jederzeit erreichbar auf einer Kassette abspeichern. Dieses 
Programm könnte dann in etwa so aussehen: 


10 KEY 0,"LIST"+CHRSCI3) 
20 KEY 1,"PRINT " 

30 KEY 2, "NEW" 

40 KEY 3,"RENUM " 

50 KEY 4,"AUTO " 

60 KEY 5,"DELETE " 


Entwickeln Sie nach oder während der Erarbeitung des folgenden 
Kapitels Ihr persönliches Funktionstastenprogramm! 


Noch ein wichtiger Hinweis zum Schluß: Der Dreifingergriff 
(SHIFT/CTRL/ESC), der den Rechner in den Einschaltzustand 
versetzt, löscht alle Funktionstasten! 
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KAPITEL 5: 
BASIC EINFÜHRUNG 


Dieses Kapitel soll eine Einführung in die Programmiersprache 
BASIC darstellen. Dabei sollen nicht alle BASIC-Befehle stur 
nacheinander beschrieben werden, sondern es wird eine 
Adressenverwaltung Schritt für Schritt aufgebaut, in der die Be- 
fehle dann zum gegebenen Zeitpunkt beschrieben und eingesetzt 
werden. Der Leser dieses Buches soll durch dieses Kapitel nicht 
zum perfekten Programmierer werden, sondern einen intensiven 
Einblick in die praxisnahe Programmierung erhalten. Dieser Ein- 
blick bietet ihm dann beste Voraussetzungen, sich durch weitere 
Fachbücher weiterzubilden. 


PROBLEMBESCHREIBUNG ZUR ADRESSENVERWALTUNG 


Eine Adressenverwaltung ist eines der beliebtesten Programme 
auf dem Heimcomputer. Die breite Einsatzfähigkeit trägt 
wesentlich dazu bei. Es gibt kaum jemand, der dieses Programm 
nicht einzusetzen weiß. Zwar ist eine Adressenverwaltung mit nur 
wenig Adressen per Heimcomputer nicht unbedingt effektiver als 
die herkömmliche Methode mit dem Adressenbüchlein, aber er- 
heblich eindrucksvoller. Wenn sich jedoch sehr viele Adressen 
ansammeln, so sind sie in einem Heimcomputer bestens aufge- 
hoben. 


Welche Möglichkeiten sollte ein solches Programm bieten? Nun, 
auf jeden Fall müssen Adressen ein- und ausgegeben werden. 


Bevor wir weitere Ansprüche an das Programm stellen, muß noch 
etwas klargestellt werden. In einem Programm, das Daten ver- 
waltet, unterscheidet man zwischen zwei grundsätzlichen 
Bestandteilen: 
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1. Das Programm 
2. Die Daten 


Die Daten sind nicht Bestandteil des Programms. Dies wäre zwar 
möglich, aber diese Daten können dann nur vom Programmierer 
und nicht vom Anwender verwaltet werden. Eine Änderung der 
Daten hätte gleichzeitig eine Änderung des Programms zur Folge, 
was wir sofort wieder vegessen können. 


Das Programm befindet sich also auf dem externen Speicher- 
medium (Diskette) und wird bei Bedarf in den Rechner einge- 
laden. Aber was ist nun mit den Daten? Sie fallen erstmalig bei 
der Ersterfassung an. Wohin dann damit? 


Wir müssen eine Datei organisieren. Eine Datei ist eine 
Ansammlung von Daten auf einem externen Speichermedium. Es 
gibt zwar mehrere Dateiorganisationsformen, wir beschäftigen uns 
aber nur mit der einfachsten Methode, der sequentiellen Datei. 
Sequentiell bedeutet, daß die Daten hintereinander angeordnet 
sind. Die zwei wichtigen Bestandteile unserer Adressenverwaltung 
sind nun 


1. Das Programm 
2. Die Datei 


DATEIORGANISATION 


Wenn ich jetzt fragen würde, welcher Teil zuerst organisiert wer- 
den muß, werden viele antworten, "das Programm". Die Antwort 
ist aber falsch. Zuerst muß man sich im klaren sein, was wie wo 
abgespeichert wird. Über das "wie" sind wir uns im klaren, 
sequentiell soll gespeichert werden. 
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Wir wollen unsere Daten auf dem eingebauten Diskettenlaufwerk 
abspeichern. 


Bleibt nun noch die Frage, was gespeichert werden soll. "Adressen 
natürlich" werden viele spontan reagieren, doch sind wir uns 
überhaupt im Klaren, was alles zu einer Adresse gehören soll? 
Natürlich nicht. Sammeln wir doch einmal alles, woraus sich eine 
Adresse zusammensetzen könnte: 


Anrede Postleitzahl 
Vorname Ort 

Name Telefonnummer 
Strasse Bemerkung 


Diese einzelnen Bestandteile einer Adresse nennt man DATEN- 
FELDER. Man spricht so z.B. vom Feld "Anrede". Die 
Gesamtheit der Datenfelder ergibt den DATENSATZ. Jeder 
Datensatz besteht also in unserem Beispiel aus diesen 8 Feldern. 
Alle Datensätze zusammen ergeben schließlich die Datei. Sehen 
wir uns diese Struktur einmal in folgendem Bild an: 


DATEI 
FELD 1 FELD2 FELD3 ....... FELD n DATENSATZ 1 
FELD 1 FELD 2 FELD3 ....... FELD n DATENSATZ 2 
FELD 1 FELD2 FELD3 ....... FELD n DATENSATZ 3 
FELD 1 FELD 2 FELD3 ....... FELD n DATENSATZ 4 
FELD 1 FELD 2 FELD3 ....... FELD n DATENSATZ n 


Die Hierarchie ist also DATEI - DATENSATZ- DATENFELD 
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RECHNERINTERNE SPEICHERUNG DER DATEN 


Mit einer sequentiellen Datei läßt sich zwar sehr bequem ar- 
beiten, jedoch gibt es hier auch Nachteile gegenüber anderen 
Organisationsformen. Stellen Sie sich vor, die gesamte Datei mit 
den Adressen befindet sich auf einer Kassette. Sie möchten nun 
eine ganz bestimmte Adresse aus dieser Datei haben. Hier tritt 
dann das Problem auf. Sie können nicht aus einer Datei nur einen 
Datensatz lesen. Die Floppystation ist nicht in der Lage, aus einer 
sequentiellen Datei einzelne Datensätz zu lesen. Wie kann man 
nun auf die Adressen zugreifen? 


Um auf einen Datensatz zuzugreifen, muß die gesamte Datei in 
den Rechner eingelesen werden. Eine sequentielle Datei darf 
demnach nicht größer als der vorhandene Speicherplatz des 
Rechners sein. Ein Vorteil stellt sich jedoch wieder heraus. Wenn 
die Datei einmal eingelesen ist, so kann im Rechner blitzschnell 
auf die Datensätze zugegriffen werden. Für den gesamten Pro- 
grammablauf gilt also folgende Regelung: 


1. Datei laden 
2. Datensätze lesen, ändern, löschen ..... 
3. Datei speichern 


Nach dem Start des Programms muß also zuerst die Adressendatei 
komplett eingelesen werden. Danach können die Datensätze ver- 
arbeitet werden. Vor Beendigung des Programms muß die Datei 
jedoch wieder gespeichert werden, sofern sie geändert wurde. 
Wurden die Datensätze jedoch nicht geändert und auch keine 
gelöscht oder hinzugefügt, so stimmt die Datei noch mit der ur- 
sprünglich eingeladenen Datei überein. Sie braucht also nicht 
wieder gespeichert werden. 
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VARIABLEN 


Wie bekannt, werden die Datensätze im Rechner gespeichert. Die 
Frage ist nur, wo und wie werden sie gespeichert? 


RECHNERINTERNE DATEN WERDEN IN VARIABLEN 
GESPEICHERT 


Variablen sind also das Zauberwort. Variablen sind Speicher- 
bereiche im CPC6128, die mit einem Namen versehen werden. 
Durch Angabe dieses Namens kann auf diese Speicherbereiche 
zugegriffen werden. Wir haben schon zwei verschiedene Daten- 
typen kennengelernt. Da gibt es numerische Daten (Zahlen) und 
alphanumerische Daten (Strings, Text). Stringvariablen werden 
durch das Zeichen ’$’° hinter der Variablenbezeichnung 
gekennzeichnet. Woraus setzen sich nun die Bezeichnungen der 
Variablen zusammen? Nun, zunächst umfaßt eine Variablen- 
bezeichnung höchstens 40 Zeichen. Das erste Zeichen MUSS ein 
Buchstabe sein, weitere Zeichen dürfen Zahlen oder Buchstaben 
sein. Es gibt wenige Ausnahmen. BASIC-Befehle oder Funktionen 
dürfen nicht verwendet werden: 


z.B. PRINT, PI, KEY 
Beispiele numerische Variablen: 


ZAEHLER 
PLZ 
TELEFON 
BETRAG 


Beispiele Stringvariablen: 


ANREDE$ 
ARTIKELBEZEICHNUNG$ 
KONTOBEZEICHNUNG$ 
x$ 
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Bei der Auswahl der Variablen sollten Sie sinnvolle Bezeichnun- 
gen verwenden. So wird die Variable zum Speichern des Vor- 
namens z.B. "VORNAME$" genannt. Den Einkaufpreis würde 
man "EINKAUFSPR" nennen, usw. Sinnvolle Variablennamen 
tragen wesentlich zur Übersichtlichkeit des Programms bei. 


VARIABLENVERARBEITUNG 


Wenden wir uns nun wieder nach langer Zeit dem Rechner zu. 
Wir werden nun Variablen einrichten, verarbeiten und ausgeben. 


Die Speicherung von numerischen Daten in Variablen z.B. ist 
eigentlich ein Kinderspiel. Nehmen wir an, die Zahl 45.12 soll in 
der Variablen EINKAUFSPR gespeichert werden. Der 
entsprechende Befehl ist dann 


EINKAUFSPR=45.12 


Ist doch einfach, oder? Soll diese Variable ausgegeben werden, so 
lautet der Befehl 


PRINT EINKAUFSPR 


Geben Sie beide Befehle nun einmal in den Rechner ein. Soll die 
Variable EINKAUFSPR wieder gelöscht werden, so geben Sie 
sinngemäß den Befehl 


EINKAUFSPR=O 


ein. Die Variablen können aber auch für Rechenoperationen be- 
nutzt werden. Geben wir einmal den doppelten Wert von 
EINKAUFSPR aus. Wenn Sie die Variable gelöscht haben, so 
geben Sie bitte erneut ’EINKAUFSPR=45.12° ein. 


PRINT EINKAUFSPR*2 
Der Rechner verdoppelt EINKAUFSPR und gibt das Ergebnis 


(90.24) aus. Die Variable selbst behält den Wert 45.12. Was aber 
ist zu tun, wenn die Variable EINKAUFSPR verdoppelt werden 
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soll? Da die Variable einen neuen Wert erhalten soll, beginnt der 
entsprechende Befehl mit ’EINKAUFSPR=’. Der gesamte Befehl 
zur Verdoppelung ist: 


EINKAUFSPR=EINKAUFSPR#2 


Es wird immer erst der Wert rechts vom Gleichheitszeichen er- 
rechnet und dann in die Variable links vom Gleichheitszeichen 
abgelegt. 


Stringvariablen werden auf ähnliche Art und Weise eingerichtet. 
Speichern wir nun den String "FRANKFURT" in die String- 
variable STADT$. Der Befehl dazu lautet 


STADT$="FRANKFURT" 


Auch Stringvariablen werden mit dem Befehl PRINT auf dem 
Bildschirm ausgegeben. Sehen Sie selbst: 


PRINT STADT$ 


Was geschieht? Natürlich, der in STADT$ gespeicherte String 
wird ausgegeben. Soll diese Stringvariable wieder gelöscht wer- 
den, so muß ein sogenannter Leerstring in STADT$ gespeichert 
werden. 


STADT$="" 


Ein Leerstring besteht also aus zwei unmittelbar aufeinanderfol- 
genden Anführungszeichen. Selbstverständlich kann mit diesen 
Strings nicht gerechnet werden. Auch nicht, wenn eine Zahl als 
String abgelegt wird. Das heißt, wenn Sie z.B. X$="123" 
eingeben würden, so können Sie trotzdem nicht ohne weiteres mit 
X$ rechnen. 


Strings können jedoch verkettet werden. Die folgende Befehls- 
folge bestätigt es: 


STADT1$="DUESSELDORF" 
STADT2 $="FRANKFURT" 
STADT$=STADT1$+STADT2$ 
PRINT STADT$ 


Zuerst wurden die beiden Städte in STADT1$ und STADT2$ 
gespeichert. Danach wurde ein dritter String (STADT$) gebildet, 
der beide Strings aufgenommen hat. Der vierte Befehl hat den 
String STADT$ dann ausgegeben. 


Es wäre sinnvoll, zwischen den beiden Städten ein Leerzeichen zu 
setzen. Dazu müßte der dritte Befehl entsprechend geändert wer- 
den: 


STADT$=STADT1$+" "+STADT2$ 
Es wurde also ein Leerzeichen zwischen beide Strings gesetzt. 


Wir haben jetzt die zwei wichtigsten Variablentypen kennenge- 
lernt. Die numerische Variable und die Stringvariable, die durch 
ein zusätzliches '$" gekennzeichnet ist. In solchen Variablen 
können auch Adressen gespeichert werden. Dies ist jedoch nicht 
sinnvoll. Zur Speicherung von mehreren gleichartig aufgebauten 
Datensätzen im Rechner werden andere Variablen benötigt. 


TABELLEN 


Tabellen werden in der Datenverarbeitung oft eingesetzt. Wenn 
Sie mehrere Daten einer Gruppe im Rechner speichern wollen, so 
ist es sehr umständlich, jedem Datenelement dieser Gruppe einen 
Variablennamen zu geben. In diesem Fall erhalten alle Daten- 
elemente den gleichen Variablennamen, der jedoch zusätzlich 
gekennzeichnet ist. Nehmen wir das Beispiel einer Gruppe von 
fünf Städtenamen: 
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BONN 
PARIS 
LONDON 
ROM 
MADRID 


Um diese fünf Städte im Rechner zu speichern, wären nach der 
bisherigen Methode 5 Variablen erforderlich. Wenn wir diese 
Datengruppe jedoch in einer Tabelle (auch Array genannt) 
speichern würden, so wäre ein Variablenname ausreichend. Da 
die Datenelemente jedoch unterschieden werden müssen, werden 
sie gekennzeichnet. Dazu wird hinter der Variablen eine in 
Klammern gesetzte Zahl angegeben. Diese Zahl bezeichnet man 
als Index. Das erste Datenelement erhält so den Index 1, das 
zweite den Index 2, usw. Der Index fängt zwar bei 0 und nicht 
bei 1 an, jedoch geht dadurch die Übersicht verloren, wenn das 
erste Datenelement den Index O0 erhält. Man kann diesen Index 0 
ignorieren. Dies vergeudet zwar Speicherplatz, doch werden 
gleichzeitig Fehlerquellen vermieden. 


Eine Tabellen- oder Arrayvariable ist z.B. ADRESSE$ (1). Auch 
XY(212) ist eine numerische Arrayvariable. Der Index ist also 
beliebig groß anzusetzen. Es gibt hier nur zwei Dinge zu 
beachten: 


1. Übersteigt der Index die Zahl 10, so muß für diese Tabelle 
Speicherplatz reserviert werden. 


2. Die Tabelle darf nicht so groß definiert werden, daß sie 
den Speicher überschreitet. 


Es werden also Tabellen bis zum Index 10 selbständig vom 
Rechner verwaltet. Doch wie werden größere Arrays definiert? 
Hierfür gibt es einen speziellen BASIC-Befehl, den Befehl ’DIM’. 
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Problem: Dimensionierung von Arrays 
Befehl: DIM v/ (n1,n2,..) 
Parameter: vl - Varaiablenname des Arrays 
nl,n2... - maximaler Index der einzelnen 
Dimensionen 
Beispiel: DIM D$(20) 


Es soll ein Array mit der Bezeichnung D$ bis 
zum Index 20 eingerichtet werden. 


Bemerkung: Jedes Array darf im Programm nur EINMAL 
dimensioniert werden, sonst Fehlermeldung 
"Array already dimensioned" 


Wenn der maximale Index z.B. 5 sein soll, so ist keine DIM-An- 
weisung notwendig, da bis zum Index 10 der Rechner dies selbst 
durchführt. Die Sache hat nur einen kleinen Haken: Wird nur bis 
zum Index 5 gearbeitet, so wird auch Platz für den Index 6-10 
reserviert, der eigentlich nicht benötigt wird. Hier kann man Ab- 
hilfe schaffen, indem eine DIM-Anweisung mit dem Index 5 
eingesetzt wird. Der Rechner reserviert dann auch nur Platz bis 
zum 5. Index. 


Doch nun zurück zu unseren fünf Städtenamen, die in einer 
Tabelle abgelegt werden sollen. Wenn die Variable STADT$ ver- 
wendet wird, werden die Städte mit den folgenden Zuweisungen 
gespeichert. 


10 STADTSC1)="BONN" 
20 STADT$C2)="PARIS" 
30 STADT$C3)="LONDON" 
40 STADT$(4)="ROM" 
50 STADT$C5)="MADRID" 


Man könnte hier auch zuvor die Anweisung ’DIM STADT$ (5) ’ 
geben, wenn der Index 6 bis 10 nicht benötigt wird. 
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Wird ein Index benutzt, der über die reservierte Tabelle hinaus- 
schießt, so wird die Fehlermeldung "Subscript out of range" 
gegeben. Den Index bezeichnet man auch als Subskript. 


In einem weiteren Beispiel sollen nun die fünf Länder der zuvor 
gespeicherten Hauptstädte ebenfalls in einer Tabelle abgelegt 
werden. Die Tabelle erhält den Namen LAND$. Folgende 
Zuweisungen müssen gemacht werden: 


60 LAND$C1)="BRD" 

70 LAND$C2)="FRANKREICH" 
80 LAND$C3)="ENGLAND" 

90 LANDSCA)="ITALIEN" 
100 LAND$(S)="SPANIEN" 


Nun haben wir zwei Tabellen erstellt, deren Index in Zusammen- 
hang stehen. Das heißt, STADT$ (1) enthält die Hauptstadt von 
LAND$ (1). Allgemein kann gesagt werden, STADT$(X) ent- 
hält die Hauptstadt von LAND$ (X). 


Der besondere Reiz an Tabellen ist, daß als Index nicht nur eine 
Zahl, sondern auch Variablen oder beliebige Ausdrücke eingesetzt 
werden können. Eine Arrayvariable mit der Bezeichnung 
’DS$(X-2*I+13)’ ist somit durchaus möglich. Der Vorteil 
dieser Indizierung ist unverkennbar. 


Diese beiden soeben erstellten Tabellen bezeichnet man als ein- 
dimensional, da sie nur einen Index besitzen. Nun können 
Tabellen aber beliebig viele Indizes erhalten. Anstatt der beiden 
zuvor aufgebauten Tabellen kann auch eine zweidimensionale 
Tabelle erstellt werden. Beachten Sie zunächst die entsprechende 
Befehlsfolge: 


10 DIM TABELLE$(5,1) 

20 TABELLE$C1,0)="BONN" 
30 TABELLE$(2,0)="PARIS" 
40 TABELLE$(3,0)="LONDON"" 
50 TABELLE$(4,0)="ROM" 

60 TABELLE$(5,0)="MADRID" 
70 TABELLE$(1,1)="BRD" 
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80 TABELLE$C2, 1)="FRANKREICH!" 
90 TABELLE$(3, 1)="ENGLAND" 
100 TABELLE$(4,1)="ITALIEN" 
110 TABELLE$(5, 1)="SPANIEN" 


Die DIM-Anweisung in Zeile 10 ist zwar nicht erforderlich, da 
der Rechner ohnehin ’DIM D$(10,10)’ ausführen würde, je- 
doch würden mit dieser Anweisung 11*11 (121) Plätze reserviert. 
Wir benötigen jedoch nur 10 Tabellenplätze. Bei zwei- und 
mehrdimensionalen Tabellen sollte man die Größe der Tabellen 
möglichst genau bestimmen, da sonst viel Speicherplatz vergeudet 
wird. 


Wir haben nun eine zweidimensionale Tabelle, in der der zweite 
Index die Datengruppe (Stadt oder Land) identifiziert und der 
erste Index den Tabellenplatz. Man kann diese Tabelle auch als 
Matrix darstellen: 





Kommen wir nun wieder zu unserer Adressenverwaltung zurück. 
Eine solche zweidimensionale Tabelle ist ideal für die Aufnahme 
der sequentiellen Adressendatei. Der erste Index numeriert die 
Datensätze, der zweite Index numeriert die Datenfelder innerhalb 
der Datensätze. Da unsere Datensätze 8 Felder enthalten, ist der 
zweite Index maximal 8. Der erste Index, also die Anzahl der 
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Adressen, ist wahlweise. Legen wir uns hier auf maximal 200 
Adressen fest. Der Name der Tabelle soll ADRESSE$ sein. Die 
DIM-Anweisung zum Einrichten dieser Tabelle ist dann 


DIM ADRESSE$ (200,8) 


Wie die Tabelle verwaltet wird, erfahren Sie an späterer Stelle. 


DATENEINGABE ÜBER TASTATUR 


In den bisherigen Übungen haben wir nur Daten verarbeitet und 
ausgegeben. Interessant wird es erst, wenn dem Programm Daten 
über die Tastatur übergeben werden. Der Befehl dazu heißt 
INPUT. Doch INPUT alleine hat keine Wirkung. Dem Befehl 
folgen zwei Parameter: ein String, der vor dem eigentlichen 
INPUT ausgegeben wird und eine Variable, in der die einge- 
gebenen Daten gespeichert werden sollen. Wichtig: Der Befehl 
INPUT kann nicht im Direktmodus, sondern nur im Programm 
eingesetzt werden. Doch beachten Sie zunächst die Befehls- 
beschreibung: 


Problem: Dateneingabe über Tastatur 
Befehl: INPUT string;v! 
Parameter: string - beliebige Zeichenkette 
vl - Variable, in der die Eingabe 


gespeichert wird. 


Beispiel: INPUT "ZAHL";X 
Es wird der String "ZAHL" ausgegeben und 
anschließend ein numerischer Wert von der 
Tastatur eingelesen und in der Variablen X 
gespeichert. 


Bemerkung: Der Befehl kann nicht im Direktmodus 
eingesetzt werden. 
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Geben Sie nun den Befehl NEW ein, der ein zuvor im Speicher 
befindliches Programm löscht. Die folgenden BASIC-Zeilen 
demonstrieren den Einsatz des Befehls INPUT: 


10 PRINT "KREISBERECHNUNG!" 

20 PRINT "!-----------..-- " 

30 INPUT "DURCHMESSER ";DURCHM 

40 PRINT "KREISFLAECHE ::"; (DURCHM/2)”2*PI 


Starten Sie dieses Programm mit dem Befehl RUN. In Zeile 30 
wird der Durchmesser des zu berechnenden Kreises abgefragt. 
Die Eingabe wird stets mit RETURN abgeschlossen. Hinter dem 
String nach dem INPUT muß ein Semikolon angegeben werden. 
Der String kann aber auch weggelassen werden. Das folgende 
Programm bestätigt es: 


10 PRINT "KREISBERECHNUNG" 

20 PRINT "--------------- ’ 

30 INPUT DURCHM 

40 PRINT "KREISFLAECHE ="; (DURCHM/2)*2*PI 


Sie brauchen natürlich nicht das gesamte Programm neu 
einzugeben, sondern nur die Zeile 30 entsprechnd zu ändern. Sie 
bemerken, daß der String vor dem INPUT nur dokumentierende 
Aufgaben hat. Die Dokumentation des INPUT kann aber auch ein 
PRINT in der Zeile zuvor übernehmen: 


10 PRINT "KREISBERECHNUNG" 

20 PRINT "--------------- " 

25 PRINT "DURCHMESSER "; 

30 INPUT DURCHM 

40 PRINT "KREISFLAECHE :"; (DURCHM/2)”2*PI 


Geben Sie zusätzlich die Zeile 25 ein und starten nochmals das 
Programm. Es läuft genauso wie die erste Version ab. Wichtig ist 
das Semikolon hinter dem PRINT in Zeile 25. Lassen Sie es weg, 
so erfolgt der INPUT-Befehl in der Zeile darunter. Probieren Sie 
es aus. 
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Auch Strings können über die Tastatur mit dem Befehl INPUT 
eingelesen werden. Auch hier zunächst ein Beispiel. Löschen Sie 
zuvor das alte Programm mit NEW. 


10 PRINT "WIE HEISSEN SIE?" 
20 INPUT NAMES 
30 PRINT "GUTEN TAG ";NAME$;", WIE GEHT ES IHNEN?" 


Aus der Zeile 10 und 20 kann auch eine Zeile gebildet werden. 
Der String vor dem INPUT wird dann beim INPUT angegeben. 


10 INPUT "WIE HEISSEN SIE?";NAME$ 
20 PRINT "GUTEN TAG ";NAME$;", WIE GEHT ES IHNEN?" 


Diese Beispiele demonstrieren alles, was der Befehl INPUT zu 
bieten hat. Beachten Sie, daß das Programm auch weiterläuft, 
wenn nichts eingegeben, also nur RETURN gedrückt wird. Die 
Variablen nehmen dann den Wert 0 oder bei Strings ""(Leerstring) 
an. 


SCHLEIFEN 


Lassen Sie uns zunächst eine Übung machen, die dann später zur 
Schleifensteuerung führt. Es sollen fünf Namen über die Tastatur 
eingelesen werden. Diese Namen sollen in dem Array NAME$ 
gespeichert werden. Mit den bisher beschriebenen Befehlen 
würden wir folgendes Programm aufbauen: 


10 PRINT"EINGABE DER NAMEN" 
20 PRINT"----------------- " 
30 INPUT"NAME ";NAME$(1) 
40 INPUT"NAME ";NAME$(2) 
50 INPUT"NAME ";NAME$S(3) 
60 INPUT"NAME ";NAME$(4) 
70 INPUT"NAME ";NAMESC5) 


Mit diesem Programm werden jetzt nacheinander die fünf Namen 
eingelesen. Doch ist dies nicht sehr umständlich? Stellen Sie sich 
vor, es sollen 100 Namen eingelesen werden! 
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In der Praxis werden Sie nie einen solchen Programmierstil sehen. 
Man bedient sich dazu einer Schleife. Doch wie wird nun eine 
Schleife aufgebaut? Schauen Sie sich zunächst die Beschreibung 
des entsprechenden Befehls an: 


Problem: Schleifensteuerung 
Befehl: FOR v/ = n] TO n2 STEP n3 
Parameter: vl - numerische Variable 
nl - Anfangswert von v/ 
n2 - Endwert von v/ 
n3 - Inkrement, Wert um den v/ 


nach jedem Schleifendurch- 
lauf erhöht wird 


Beispiel: FOR A=1 TO 20 STEP 1 
Die Variable A wird nach jedem Durchlauf um 
1 erhöht, bis sie den Wert 20 erhält 
(20 Schleifendurchläufe) 


Bemerkung: Ist das Inkrement 1, so kann der Parameter 
STEP weggelassen werden. Der Befehl aus dem 
Beispiel könnte demnach auch so eingegeben 
werden: 
FOR A=1 TO 20 


Jede Schleife beginnt mit einer FOR-Anweisung. Alle an- 
schließenden Befehle gehören dann zu dieser Schleife und werden 
demnach mehrmals ausgeführt. Doch wie wird das Ende der 
Schleife gekennzeichnet? Dafür gibt es eine weitere Anweisung, 
die die Aufgabe hat, die Schleifenvariable auf den Endwert zu 
prüfen. Ist der Endwert noch nicht erreicht, so wird die 
Schleifenvariable erhöht und die Schleife nochmals durchlaufen. 
Entspricht die Schleifenvariable jedoch dem Endwert, so wird 
hinter dem Befehl NEXT mit dem Programmablauf fortgefahren. 


BASIC Einführung 105 


Problem: Schleifenende festlegen 

Befehl: NEXT v/ 

Parameter: vl - Schleifenvariable 
Beispiel: NEXT A 


Kennzeichnet das Ende der im vorherigen 
Beispiel enthaltenen Schleife. 

Bemerkung: Wird die Variable v/ nicht angegeben, bezieht 
sich der Befehl NEXT auf die zuletzt 
eingerichtete Schleife. 


Mit diesen beiden Befehlen können wir nun beliebige Schleifen 
programmieren. Wenden wir uns wieder der anfangs beschriebe- 
nen Dateneingabe mit INPUT zu. Hier sollten fünf Namen in ein 
Array mit dem Index 1 bis 5 eingelesen werden. Wenn wir nun 
eine Schleife einsetzen, so benötigen wir nur eine INPUT- 
Anweisung, in der der Index als Variable, nämlich der Schleifen- 
variablen eingesetzt wird. Die Schleife soll von 1 bis 5 laufen. 
Wie sieht nun der entsprechende FOR-Befehl mit allen Parame- 
tern aus? 


FOR I=1 TO 5 
Das gesamte, geänderte Programm ist folgendes: 


10 PRINT "EINGABE DER NAMEN" 
20 PRINT "!--------ouunnnnnn ” 
30 FOR I=1 T05 

40 INPUT "NAME";NAME$CI) 

50 NEXT I 


Eine sehr elegante Lösung zum Einlesen von 5 Strings, oder? 
Interessant ist der genaue Ablauf nach dem Starten dieses Pro- 
gramms. Zuerst werden die beiden PRINT-Befehle ausgeführt. 
Nun beginnt die Schleife mit der Variablen I, dem Anfangswert 
1, dem Endwert 5 und dem Inkrement (Erhöhungswert) 1. 
Erinnern Sie sich, wird kein STEP-Parameter angegeben, so wird 
mit dem Inkrement 1 gearbeitet. Zu Anfang der Schleife erhält I 
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den Wert 1. In Zeile 40 wird also die Arrayvariable mit dem 
Index 1 eingelesen. Anschließend prüft der Befehl NEXT, ob das 
Schleifenende (Variable I größer 5) erreicht ist. Da dies nicht der 
Fall ist, wird I um das Inkrement 1 erhöht und das Programm 
hinter dem Befehl FOR, also in Zeile 40 fortgesetzt. Die Variable 
I enthält nun den Wert 2. Der folgende INPUT liest also nun den 
nächsten Namen in dem Array mit dem Index 2 ein. So geht es 
nun weiter, bis der Befehl NEXT die Schleife abschließt. Hat die 
Variable I den Wert 4, so wird sie nochmals um 1 erhöht und die 
Schleife mit dem Wert I=5 durchlaufen. Anschließend wird die 
Variable I vom Befehl NEXT auf den Endwert (5) überprüft. 
Dies ist der Fall und das Programm wird hinter dem NEXT fort- 
gesetzt, also beendet. 


Wir können das Programm nun dahingehend erweitern, daß nach 
Eingabe der Namen alle nochmals ausgegeben werden. Dazu muß 
eine weitere Schleife angehängt werden: 


60 FOR I=1 T0 5 
70 PRINT "NAME ";NAME$CI) 
80 NEXT I 


Es ist also alles nicht so kompliziert, wie Sie es vielleicht zu 
Anfang angenommen haben. 


Was kann man noch mit einer Schleife anfangen? Nun, z.B. 
können Sie eine Warteschleife aufbauen, die den Programmablauf 
verzögert. Hier bauen Sie nur eine Schleife mit FOR auf und 
schließen Sie unmittelbar dahinter mit NEXT ab. Nun ist es 
wichtig, wie oft so eine Schleife durchlaufen werden muß, um 
z.B. eine Warteschleife von 1 Sekunde zu erzeugen. Es kann 
davon ausgegangen werden, daß eine derartige Schleife 1000 mal 
in der Sekunde durchlaufen wird. Eine Warteschleife von ca. 3 
Sekunden wird dann wie folgt aufgebaut: 


FOR X=1 TO 3000:NEXT 
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Erinnern Sie sich: In einer Zeile können mehrere Befehle ein- 
gesetzt werden, wenn diese durch einen Doppelpunkt getrennt 
werden. Lassen Sie uns nun in unserem Programm eine 
Warteschleife zwischen der Dateneingabe und der Datenausgabe 
einfügen. Eine Zeilennummer, die dazwischen liegt, ist z.B. die 
Zeile 55. Wie sieht diese Zeile nun aus, wenn wir ca. 2 Sekunden 
verzögern möchten? 


55 FOR I=1 TO 2000:NEXT I 


Lassen Sie jetzt das Programm mit LIST auf dem Bildschirm 
anzeigen. Sie werden sehen, daß alle nachträglich eingegebenen 
Zeilen ordnungsgemäß eigesetzt wurden. Starten Sie das Pro- 
gramm nun mit RUN, dann werden Sie die Auswirkung der Zeile 
55 bemerken. 


Bisher haben wir nur mit dem Inkrement 1 gearbeitet, daß ja 
bekanntlich auch jeden anderen Wert annehmen kann. Sollen die 
Namen im vorherigen Beispiel nicht von 1 bis 5, sondern 
umgekehrt von 5 bis 1 eingelesen werden, so ist dies durchaus 
möglich. Der Anfangswert der Schleife ist dann 5, der Endwert 1 
und das Inkrement, also der STEP-Parameter -1. Wie müssen die 
Zeilen 30 und 60 abgeändert werden? Sicher haben Sie die 
Lösung längst parat: 


30 FOR 1=5 TO 1 STEP -1 
40 FOR 1=5 TO 1 STEP -1 


Lassen Sie uns noch ein paar Übungen zum Befehl FOR machen. 
Es sollen die FOR-Befehle zu folgenden Schleifen aufgebaut 
werden: 


Schleifen- Anfangs- End- Inkrement 
variable wert wert 

A) INDEX 10 18 1 

B) ZAHL 30 15.5 -0.5 

C) SCHLEIFE 590 1800 0.25 


D) ZEIT 1 10 0.3 


Die Lösungen: 


A) FOR INDEX=10 TO 18 STEP 1 
oder 
FOR INDEX=10 TO 18 
B) FOR ZAHL=30 TO 15.5 STEP -0.5 
C) FOR SCHLEIFE=590 TO 1800 STEP 0.25 
D) FOR ZEIT=1 TO 10 STEP 0.3 


Noch eine Anmerkung zum Abschluß des Kapitels. Sollten Sie 
mit FOR Schleifen aufbauen, die logisch falsch sind (z.B. FOR I= 
10 TO 0), so wird die Schleife grundsätzlich einmal durchlaufen! 


ERSTE REAKTIONEN DES PROGRAMMS 


Nachdem wir so weit in BASIC fortgeschritten sind, wird es Zeit, 
mit dem Adressenprogramm zu beginnen. Wie sollte ein solches 
Programm anfangen? Wenn Sie schon einmal vergleichbare Pro- 
gramme bedient haben, wissen Sie sicher, was ein solches Pro- 
gramm nach dem Starten auf dem Bildschirm zeigt. Es meldet 
sich meist mit einem Programmkopf. Diesen Kopf, der nur aus 
wenigen PRINT-Anweisungen besteht, wollen wir zunächst 
erstellen. Anweisungen, die Ihnen gänzlich unbekannt sind, 
sollten Sie nicht daran hindern, trotzdem den Anfang des Pro- 
gramms einzugeben und zu starten. Diese Anweisungen werden 
danach beschrieben. 


100 REM ==========2==2======== 
110 REM Programmkopf 

120 REM ==================== 
130 CLS 

140 PRINT STRING$C4O,"=") 

150 LOCATE 12,2 

160 PRINT "ADRESSENVERWALTUNG" 
170 PRINT STRING$(C4O,"=") 
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Nachdem Sie diesen Teil des Programms eingegeben und gestartet 
haben, wollen Sie natürlich wissen, was die neuen Befehle be- 
deuten. Fangen wir bei den Zeilen 100-120 an. Hier wird dieser 
Abschnitt des Programms dokumentiert. Damit der Rechner den 
dokumentierenden Teil nicht als Befehl interpretiert, werden 
diese Zeilen mit REM gekennzeichnet. REM bedeutet 
REMARKS, also Anmerkungen. Solche REM-Zeilen können Sie 
an beliebigen Stellen im Programm einfügen. Die Kennzeichnung 
der verschiedenen Programmabschnitte trägt zur Übersichtlichkeit 
des Programms bei. 


Der nächste neue Befehl ist eigentlich kein Befehl, sondern eine 
Funktion, genauer eine Stringfunktion. Wie Sie wissen, bezeichnet 
man eine Zeichenkette in der Fachsprache als String. Mit der 
Funktion STRING$ kann ein bis max. 255 vervielfachtes Zeichen 
ausgegeben werden. Schauen wir uns wieder zunächst die 
Beschreibung an: 


Problem: Erzeugen von Zeichenketten 

Funktion: STRING$(n,"z”) 

Parameter: n- Anzahl der Zeichen (0-255) 
"z"- zu vervielfachendes Zeichen 

Beispiel: PRINT STRING$(80,":") 


Es werden 80 Doppelpunkte ausgegeben 


Diese Funktion können Sie in Verbindung mit dem PRINT- 
Befehl ausprobieren. Da dieser Befehl recht einfach ist, kommen 
wir gleich zum nächsten. 


Der Befehl PRINT gibt Daten auf dem Biildschirm aus. An 
welcher Stelle des Bildschirms ausgegeben wird, hängt von dem 
letzten PRINT- bzw. CLS-Befehl ab. Um die Ausgabe mit 
PRINT an eine beliebige Stelle des Bildschirms einzuleiten, ent- 
hält Ihr BASIC den folgenden Befehl: 
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Problem: Positionieren des Cursors 
Befehl: LOCATE sp,z 
Parameter: sp - Spalte 

z- Zeile 
Beispiel: LOCATE 5,10 


setzt den Cursor auf die 5. Spalte der 10. Zeile 


Nach jedem PRINT-Befehl wird die Position des Cursors ver- 
ändert. Diesen Cursor sieht man jedoch nicht auf dem Bild- 
schirm, da die Ausgabe von Programm gesteuert wird. Möchte 
man also die Position, an der die Ausgabe des PRINT-Befehls 
erfolgen soll, selbst bestimmen, so setzt man vor den PRINT- 
Befehl den Befehl LOCATE. Mit diesem Befehl gibt man, wie 
oben beschrieben, die Spalte und die Zeile der Position an. Ein 
Beispiel soll hier Klarheit schaffen. Der Text "HALLO? soll in der 
Mitte des Bildschirms ausgegeben werden. Dazu werden die 
Befehle LOCATE und anschließend PRINT benötigt. Die 
Befehlsfolge sieht dann so aus: 


LOCATE 18,13:PRINT "HALLO" 
Erinnern Sie sich: In einer Befehlszeile können mehrere Befehle 
untergebracht werden, wenn diese durch einen Doppelpunkt 


getrennt werden. 


Doch nun wieder zu unserem Programm. 
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UNTERPROGRAMME 


Im weiteren Verlauf der Adressenverwaltung werden wir die 
BASIC-Zeilen zur Ausgabe des Programmkopfes noch öfter 
benötigen. Damit wir nicht immer wieder diese Zeilen eingeben 
müssen, was das Programm auch unnötig verlängern würde, 
machen wir daraus ein Unterprogramm (auch Routine genannt). 
Doch wie wird ein Unterprogramm gekennzeichnet und wie führt 
man es aus? Zwei Fragen, die wie immer sofort geklärt werden. 


Sie haben bereits im vorherigen Kapitel den Befehl GOTO 
kennengelernt, der es ermöglicht, das Programm in irgendeiner 
Zeile fortzusetzen. Da nach Ablauf eines Unterprogrammes 
jedoch wieder zurück verzweigt werden muß, und der Rechner 
nicht wissen kann, von wo mit GOTO aufgerufen wurde, ist der 
Befehl GOTO hier fehl am Platze. Zum Aufruf von Routinen 
gibt es einen ähnlichen Befehl, der nun zunächst beschrieben 
wird. 


Problem: Aufruf von Unterprogrammen (Routinen) 
Befehl: GOSUB zn 
Parameter: zn - Zeilennummer, ab der die 


Routine beginnt 


Beispiel: GOSUB 100 
ruft ein Unterprogramm bei Zeile 100 auf 


Bemerkung: - Die mit GOSUB aufgerufenen Unter- 
programme müssen mit dem Befehl RETURN 
abgeschlossen werden. 

- Stößt das Programm während des Ablaufs auf 
ein RETURN, ohne daß ein GOSUB-Befehl 
ausgeführt wurde, so führt dies zur Fehler- 
meldung "Unexpected RETURN" 


Dies sieht eigentlich recht einfach aus. Ist es auch, wenn man nur 
einige Male damit gearbeitet hat. Wir machen nun die Zeilen 
100-170 zu einem Unterprogramm, das von beliebiger Stelle im 
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späteren Programm aufgerufen werden kann. Wie Sie der Befehls- 
beschreibung entnommen haben, müssen wir dazu dieses Unter- 
programm mit dem Befehl RETURN abschließen. Dazu hängen 
wir eine Zeile an: 


180 RETURN 


Nun dürfen wir dieses Programm jedoch nicht mehr starten. 
Machen Sie es doch, so erscheint die Fehlermeldung "Unexpected 
RETURN in 180". Dies ist auch klar, denn wir steigen mit RUN 
einfach in dieses Unterprogramm ein, das nur mit GOSUB 
aufgerufen werden darf. Wie machen wir nun weiter? 


Beachten Sie zunächst, wie die Zeilennummern des zukünftigen 
Programms organisiert werden. 


10-99 Hier sollen alle Vorabinformationen für das 
Programm untergebracht werden. Z.B. Ein- 
richten von Tabellen, Zuweisung von Variablen. 


100-999 In diesen Zeilen werden alle Routinen unter- 
gebracht. 
1000- Ab der Zeile 1000 beginnt das eigentliche 


Programm, das Hauptprogramm. 


Wir müssen also das Unterprogramm überspringen, um ins 
Hauptprogramm zu gelangen. Dazu geben wir die Zeile 99 ein: 


99 GOTO 1000 
In Zeile 1000 beginnt nun das Hauptprogramm. Dies kenn- 


zeichnen wir zunächst mit REM-Zeilen und setzen anschließend 
den Befehl GOSUB 100 ein: 


1000 REM ==================== 
1010 REM Hauptprogramm 
1020 REM ==================== 


1030 GOSUB 100 
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Nun ist das Programm wieder lauffähig. Es wird zuerst das 
Unterprogramm zum Anzeigen des Programmkopfes ausgeführt. 


DAS MENÜ 


Schauen wir zunächt, welche Fortschritte unser Programm 
gemacht hat: 


99 GOTO 1000 

100 REM ==================== 
110 REM Programmkopf 

120 REM =========2=2=2=2222222== 
130 CLS 

140 PRINT STRING$(40,"=") 

150 LOCATE 12,2 

160 PRINT"ADRESSENVERWALTUNG" 
170 PRINT STRING$(40,"=") 

180 RETURN 

1000 REM ================2==== 
1010 REM Hauptprogramm 
1020 REM ============222====== 


1030 GOSUB 100 


Das Programm meldet sich nun nach dem Starten mit seinem 
Namen. Doch dies ist sicherlich nicht alles, sondern lediglich ein 
kleiner Anfang. Da wir mit diesem Programm mehrere 
Möglichkeiten haben möchten, die Adressen zu bearbeiten, 
müssen wir diese auch anzeigen. Überlegen wir, was das Pro- 
gramm alles können soll. Zunächst soll es die Daten auf ein 
externes Speichermedium speichern und von dort wieder laden 
können. Wir benötigen dazu die beiden folgenden 
Auswahlmöglichkeiten: 


-1- DATEI LADEN 
-2- DATEI SPEICHERN 
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Weiterhin müssen wir natürlich Adressen eingeben. Dazu benöti- 
gen wir die Funktion 3: 


-3- ADRESSEN EINGEBEN 


Die eingegebenen Daten müssen auch zu ändern sein. Der 
folgende Punkt 4 soll dies ermöglichen: 


-4- ADRESSEN AENDERN 


Wenn wir vom Onkel Karl ab sofort nichts mehr wissen möchten, 
sollten wir ihn aus der Adreßdatei nehmen. Wir benötigen also 
eine Funktion "löschen": 


-5- ADRESSEN LOESCHEN 


Nun kommt das wichtigste: Alle Daten nützen uns wenig, wenn 
wir diese nicht ausgeben, also abrufen können. Mit folgendem 
Teilprogramm sollen Adressen ausgegeben werden: 


-6- ADRESSEN AUSGEBEN 


Kein Programm sollte mit dem Netzschalter des Rechners beendet 
werden. Wir schaffen deshalb mit dem letzen Punkt den Pro- 
grammausgang: 


-7- PROGRAMM BEENDEN 
Nachdem wir uns über alle Programmfunktionen im Klaren sind, 
erweitern wir unser Programm so, daß diese Funktionen als Menü 
ausgegeben werden. Die folgenden Anweisungen werden dazu 
hinzugefügt: 


1040 LOCATE 1,7 


1050 PRINT" PROGRAMMFUNKT TIONEN: " 
1060 PRINT" nennen . 
1070 PRINT 

1080 PRINT" -1- Datei laden" 
1090 PRINT" -2- Datei speichern" 


1100 PRINT" -3- Adressen eingeben" 
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1110 PRINT" -4- Adressen aendern" 
1120 PRINT" -5- Adressen loeschen"" 
1130 PRINT" -6- Adressen ausgeben!" 
1140 PRINT" -7- Programm beenden" 


Wenn Sie das Programm nun noch einmal starten, werden Sie 
erkennen, daß es langsam einen professionellen Charakter 
bekommt. Nun muß der Anwender des Programms entscheiden, 
welche Programmfunktionen er benötigt. Wir lesen dazu eine 
numerische Variable ein, die den Wert 1 bis 7 entsprechend der 
ausgewählten Funktion enthalten soll. Vorher wird noch ein 
PRINT mit dem Inhalt "AUSWAHL" ausgegeben. 


1150 LOCATE 10,18:PRINT"Auswahl "; 
1160 INPUT funktion 


DIE ABFRAGE MIT IF 


Was aber, wenn der Anwender eine ungültige Zahl eingibt, z.B. 
9? Dies sollte vom Programm unterbunden werden. Die Frage ist 
nur wie? Wir müssen feststellen, welcher Wert eingegeben wurde, 
also die Variable F auf einen ungültigen Wert abfragen. Die An- 
weisung dazu wird nun beschrieben: 


Problem: Abrage auf Bedingungen 

Befehl: IF bedingung THEN anweisung 

Parameter: bedingung - Vergleichoperation 
(z.B. A=10 oder B>12) 

anweisung - Befehle, die ausgeführt 

werden, wenn die Bedingung 
wahr ist. 

Beispiel: IF F=0 THEN GOTO 1000 


Wenn die Variable F den Wert 0 hat, wird zur 
Zeile 1000 verzweigt, ansonsten wird in der 
Zeile dahinter das Programm fortgesetzt. 
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Bemerkung: Folgt dem THEN ein GOTO, so kann dieses 
GOTO ignoriert werden. Das letzte Beispiel 
könnte auch so eingegeben werden: 

IF F=0 THEN 1000 


Eine Bedingung kann nicht nur den Vergleichsoperator ’=’ bein- 
halten, sondern auch die Operatoren ’>’ (größer als) und ’<’ 
(kleiner als). Auch Kombinationen der drei sind erlaubt. Alles in 
allem können folgende Vergleichoperatoren eingesetzt werden: 


Symbol Bedeutung 


= gleich 

> größer als 

< kleiner als 

>=, => größer als oder gleich 
<=, =< kleiner als oder gleich 
<>, >< ungleich 


Der IF-Befehl prüft also erst, ob die Bedingung wahr ist. Ist dies 
der Fall, so werden die Anweisungen hinter dem THEN ausge- 
führt. Trifft die Bedingung nicht zu, so wird das Programm hin- 
ter der IF-Zeile fortgesetzt. 


Doch dies ist nicht alles, was eine IF-Abfrage zu leisten vermag. 
Es können auch mehrere Bedingungen logisch miteinander 
verknüpft werden. Dies hört sich komplizierter an, als es 
eigentlich ist. Nehmen wir hier ein Beispiel zu Hilfe: 


IF ANTW=1 OR ANTW>12 THEN 1000 


Zwei Vergleiche, die miteinander yerknüpft wurden. OR heist 
ODER und somit kann der Befehl wie folgt interpretiert werden: 
Wenn ANTW gleich 1 oder ANTW größer als 12, dann verzweige 
nach 1000. Zum Sprung nach Zeile 1000 muß also entweder 
ANTW=1 oder ANTW>12 oder beides zutreffen. Nur wenn beide 
Bedingungen verneint werden, wird das Programm hinter der IF- 
Zeile fortgesetzt. Die OR-Verknüpfung ist eine der möglichen 
Verknüpfungen. Ein weiteres Beispiel: 
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IF ANTW=1 AND TEST>12 THEN 1000 


Dies ist eine UND-Verknüpfung, die nur dann erfüllt ist, wenn 
ANTW gleich 1 und TEST größer als 12 ist. 


Kommen wir zu unserem Problem zurück. Wir wollten abfragen, 
ob der Anwender eine Zahl eingegeben hat, die nicht in dem 
Bereich von 1-7 liegt. Wie muß die entsprechende IF-Anweisung 
codiert werden? Schauen Sie sich die Lösung an: 


IF funktion=0 OR funktion>7 THEN ... 


Ja, was dann? Geben wir einfach eine Fehlermeldung in der 
letzten Bildschirmzeile aus und gehen zurück zur Zeile 1000. Zur 
Ausgabe der Fehlermeldung benötigen wir ein weiteres Unter- 
programm, das die Art des Fehlers einem String entnimmt und 
diesen in Zeile 24 ausgibt. Sehen wir uns dieses Programm 
zunächst einmal an: 


200 REM =================== 
210 REM FEHLERMELDUNG 
220 REM ===2==22=2=22z222222z=== 
230 LOCATE 1,24 

240 PRINT fehler$ 

250 PRINT CHR$(7); 

260 FOR I=1 to 1000:NEXT I 
270 LOCATE 1,24 

280 PRINT STRING$C39," ") 
290 RETURN 


Zunächst wird in Zeile 230 der Cursor in die letzte Zeile 
positioniert. Die Zeile 240 gibt den String ’fehler$’, der vom 
aufrufenden Programm gesetzt wurde, aus. Bevor also diese 
Routine vom Hauptprogramm aufgerufen wird, muß in der 
Stringvariablen ’fehler$’? die auszugebende Fehlermeldung 
gespeichert werden. 
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ASCII-CODE 


Nun zu der Funktion in Zeile 250, die wir bereits bei den 
Funktionstasten eingesetzt haben. Erinnern Sie sich, wir haben 
den Befehlen ein RETURN -CHR$(13)- angehängt, damit sie 
automatisch ausgeführt werden. Doch gehen wir nun näher auf 
diese Funktion ein. Jedes Zeichen wird im Rechner codiert. Es 
erhält einen Wert zwischen 0 und 255. Diese Codierung ist 
genormt nach der amerikanischen ASCII-Norm. Die CPC6128- 
Zeichen weichen geringfügig von diesem Code ab. Doch nicht 
nur Zeichen werden mitcodiert. Auch spezielle Funktion, wie in 
unserem Programm das Ausgeben eines kurzen Tones, können mit 
einem ASCII-Code ausgegeben werden. Zum Codieren der 
Zeichen nach dem ASCII-Code gibt es zwei Funktionen, die zu- 
nächst beschrieben werden. 


Problem: Umwandlung eines ASCII-Codes in ein Zeichen 

Funktion: CHR$(n) 

Parameter: n - ASCII-Code (0-255) 

Beispiel: FOR I=32 TO 255: PRINT CHR$(I):NEXT I 
zeigt alle mit dem CPC6128 darstellbare 
Zeichen 


Bemerkung: Wird ein ASCII-Code über 255 angegeben, so 
folgt die Fehlermeldung "Improper argument" 


Problem: Umwandlung eines Zeichens in den ASCII- 
Code 

Funktion: ASC("z") 

Parameter: "z"- ein Zeichen, oder eine String- 


variable, die ein Zeichen 
enthält 
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Beispiel: PRINT ASC("A") 
zeigt den ASCII-Code des Buchstabens "A" (65) 
auf dem Bildschirm an. 


Bemerkung: - Ist die Stringvariable leer, so folgt die 
Fehlermeldung "Improper argument" 
- Ist die Stringvariable länger als ein Zeichen, 
so wird der ASCII-Code des ersten Zeichens 
ermittelt. 


Dies ist eine Menge an Informationen, die erst einmal verdaut 
werden muß. Wie gesagt, arbeitet der Rechner intern nur mit den 
ASCII-Codes der Zeichen. Demnach versteht er auch, wenn Sie 
diesen ASCII-Code und nicht das Zeichen selbst eingeben. 


Wenn Sie wissen möchten, welchen ASCII-Code ein bestimmtes 
Zeichen hat, so ermitteln Sie dies mit der Funktion ASC("z"). Sie 
geben dazu im Direktmodus nur den Befehl PRINT ASC("z") - 
für z setzen Sie das gewünschte Zeichen - ein. Der CPC6128 
antwortet dann prompt mit dem entsprechenden Code. 


In Zeile 250 wird also mit dem Befehl ’PRINT CHR$(7)’ ein Ton 
erzeugt, der akustisch auf einen Fehler hinweisen soll. Übrigens 
ist auch dieser Code durch ASCII genormt und bei den meisten 
Rechnern zu finden. 


Doch weiter in unserer Fehlerroutine. Dem akustischen Signal 
folgt eine Warteschleife, die eine Verzögerung von ca. 1 Sekunde 
zum Lesen der Meldung erzeugt. Anschließend wird die Fehler- 
meldung in Zeile 280 wieder gelöscht, indem die Zeile einfach 
mit 39 Leerzeichen überschrieben wird. In der Zeile 290 erfolgt 
schließlich der Rücksprung zum Hauptprogramm. 


Wir können nun unsere IF-Abfrage hinter dem INPUT ver- 
vollständigen: 


1170 IF funktion=0 OR funktion>7 THEN fehler$= 
Sungueltiger Wert":GOSUB 200:G0T0 1150 
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Geben Sie diese Zeile nun ein. Beachten Sie, daß die Aufteilung 
in zwei Textzeilen nicht der Aufteilung auf Ihrem Bildschirm 
entspricht. Wenn die eingebene Zahl nun O oder größer als 7 ist, 
liegt eine Fehlbedienung des Anwenders vor, auf den wir ihn in 
der Routine 200 hinweisen. Dazu wird zunächst die Fehlermel- 
dung im String untergebracht, dann die Fehlerroutine aufgerufen 
und anschließend zum erneuten INPUT verzweigt. 


Starten Sie nun das Programm und geben Sie einen falschen Wert 
ein. Das Programm stellt die Falscheingabe fest und gibt die 
Fehlermeldung aus. 


BERECHNETES GOTO 


Wenn ein gültiger Wert eingegeben wurde, müssen wir nun die 
nötigen Schritte einleiten. Das heißt, es muß zum entsprechenden 
Programmteil verzweigt werden. 


Um abhängig von der Variablen ’funktion’ im Programm zu 
verzweigen, gibt es einen Befehl, der dies auf leichteste Art und 
Weise ermöglicht. Schauen Sie sich die Beschreibung dieses 
Befehls an: 


Problem: Berechneter Sprung 

Befehl: ON v/ GOTO nI,n2,n3,... 

Parameter: vl - numerische Variable 
nl,n2,n3,... - Zeilennummern, zu denen ab 


hängig vom Inhalt der Varia- 
blen F gesprungen werden soll 
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Beispiel: ON F GOTO 100,200,300,400 
Ist F=1, dann wird zur Zeile 100 verzweigt, ist 
F=2, dann wird zur Zeile 200 verzweigt, usw. 
Ist F größer als 4, so wird nicht verzweigt, 
sondern in der nächsten Zeile weitergemacht. 


Bemerkung: Ist F keine ganze Zahl (z.B. 3.45), so wird 
immer die Zahl vor dem Komma benutzt. 


Ein idealer Befehl also für unseren Zweck. Wir bestimmen erst, 
bei welchen Zeilennummern die Programmteile begonnen werden 
sollen. Unser nächster Befehl soll wie folgt eingegeben werden: 


1180 ON funktion GOTO 5000, 10000, 15000, 
20000, 25000, 30000, 35000 


In welchen Zeilen nun die Programmteile untergebracht werden, 
ist im Folgenden ersichtlich: 


’funktion’ Zeile Programmteil 
1 5000 DATEI LADEN 
2 10000 DATEI SPEICHERN 
3 15000 ADRESSEN EINGEBEN 
4 20000 ADRESSEN AENDERN 
5 25000 ADRESSEN LOESCHEN 
6 30000 ADRESSEN AUSGEBEN 
7 35000 PROGRAMM BEENDEN 


Wir werden nun einen Programmteil nach dem anderen fertig- 
stellen. Sinngemäß fangen wir mit der Funktion 3, ADRESSEN 
EINGEBEN an. Doch zunächt müssen wir noch die Tabelle zur 
Aufnahme der Adressen dimensionieren. Fügen Sie dazu die Zeile 
10 ein: 


10 DIM adressen$(200,7):REM Adressentabelle 
Wir haben Platz für 200 Adressen reserviert. Das dürfte in der 


Regel vollkommen ausreichen. Wer hat schon mehr als 200 
Bekannte? Für den kommerziellen Einsatz ist das Programm nur 
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beschränkt einsatzfähig. Eine Firma, die ihre 2000 Kunden ver- 
walten möchte, sollte sich nach einem anderen geeigneten 
Programm umsehen. 


Lassen Sie uns vor den einzelnen Programmteilen eine Routine 
schreiben, die für jedes Programm einen schönen Kopf ausgibt. 
Diese Routine soll vorher auch den Programmkopf ausgeben. 
Jeder Programmteil hat einen Namen, der auch im Menü 
angegeben wurde. Diese Namen legen wir in einer Tabelle ab, 
deren Index der Variablen ’funktion’ entspricht. Was heißt das? 
In der Übersicht auf der letzten Seite sehen Sie, daß z.B. der 
Programmteil ’ADRESSEN EINGEBEN’ die Nummer 3 hat. Diese 
Nummer ist dann der Index für den Tabellenplatz. Der Tabelle 
geben wir den Namen ’funktion$’. Somit enthält z.B. die Variable 
’funktion$(3)’ z.B. den Text ’ADRESSEN EINGEBEN’. Das Ein- 
richten dieser Tabelle zählt zu den Vorbereitungen und kommt 
somit in den Zeilenbereich 0-99. Die folgenden Zeilen erstellen 
diese Tabelle: 


20 funktion$(1)=" Datei laden " 
21 funktion$(2)=" Datei speichern " 
22 funktion$(3)="Adressen eingeben" 
23 funktion$(4)="Adressen aendern "" 
24 funktion$(5)="Adressen loeschen!" 
25 funktion$(6)="Adressen ausgeben" 
26 funktion$(7)="Programm beenden "' 


- 


Beachten Sie dabei, daß alle Strings die gleiche Länge erhalten 
(zweites Anführungszeichen untereinander). In dem Unter- 
programm ab Zeile 300 wollen wir nun den Programmkopf und 
anschließend die vom Anwender ausgewählte Funktion anzeigen: 


300 REM ============2======== 
310 REM Koepfe Programmteile 
320 REM ==========2===2==2=2=2=== 


330 GOSUB 100 
340 LOCATE 10,5:PRINT STRINGSC19,"*") 
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350 LOCATE 10,6:PRINT "*ı+funktionsCfunktion)+tu 
360 LOCATE 10,7:PRINT STRINGSC19,"*") 
370 RETURN 


Hier sehen Sie, daß auch ein Unterrogramm ein anderes Unter- 
programm aufrufen kann. Es wird zunächst der allgemeine 
Programmkopf ausgegeben. Danach wird die erste Zeile des 
Kästchens, das den Namen der Funktion umhüllen soll, erzeugt. 
Die nächste Zeile sieht komplizierter aus, als sie eigentlich ist. 
Zunächst wird der Cursor auf die 10. Spalte der 6. Zeile 
positioniert. Dort wird zunächst ein Sternchen, dann der Name 
der Funktion ausgegeben. Dieser Name wird der Tabelle 
’funktion$’ mit dem Index ’funktion’ entnommen. An diesen 
String wird dann ein weiteres Sternchens angehängt. Die Zeile 
360 erzeugt die untere Zeile des Rahmens. Die letzte Zeile muß 
nicht mehr beschrieben werden. 


Doch wann wird diese Routine aufgerufen. Logischerweise kann 
sie erst ausgeführt werden, wenn der Anwender bereits eine 
Funktion ausgewählt hat, deren Nummer in der Variablen 
funktion’ enthalten ist. Also hinter der IF-Abfrage. Fügen wir 
nun die Zeile 1175 ein: 


1175 GOSUB 300 

Wir müssen diese Zeile nehmen, da nach der Zeile 1180 in einen 
anderen Teil des Programms verzweigt wird. 

ADRESSEN EINGEBEN 

Nun wird es ernst. Der erste anspruchsvolle Programmteil muß 
erstellt werden. Doch fangen wir erst einmal mit dem einfachsten 
an: 

15000 REM ==================== 


15010 REM ADRESSEN EINGEBEN 
15020 REM ==================== 
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So weit, so gut. Jetzt wird es kompliziert (nicht den Mut ver- 
lieren). Wir müssen uns irgendwie merken, wieviel Datensätze 
eingegeben wurden. Dazu erhöhen wir in diesem Programteil stets 
einen Zeiger um eins, der die Anzahl der eingegebenen Adressen 
erhält. Nennen wir ihn sinngemäß ’zeiger’. Die nächste Zahl soll 
diesen Zeiger um eins erhöhen: 


15030 zeiger=zeiger+1 


Wenn z.B. ’zeiger’ ungleich O0 ist, so wurden vorher bereits Daten 
geladen oder eingegeben, die dann hier erweitert werden. Somit 
erweitern wir die Adressendatei automatisch. 


Nun müßten wir 7 INPUT-Zeilen eingeben, um die 7 Daten- 
felder einer Adresse einzulesen. Doch dies geht einfacher. 
Zunächst speichern wir ab Zeile 30 alle Feldnamen in dem Array 
(Tabelle) ’feld$(1)’ bis ’feld$(7)’. 


30 feld$(1)="ANREDE “ 
31 feld$(2)="VORNAME “ 
32 feld$(3)="NAME “ 
33 feld$(4)="STRASSE " 
34 feld$(5)="PLZ/ORT “ 
35 feld$(6)="TELEFON ” 
36 feld$(7)="BEMERKUNG " 


Diese Feldnamen werden zu Anfang des Programms im Array 
gespeichert und können im gesamten Programmablauf eingesetzt 
werden. Wozu wir sie jetzt benötigen, werden Sie im folgenden 
Verlauf des Programteils feststellen. 


15040 PRINT 

15050 FOR index=1 to 7 

15060 PRINT feld$(index); 

15070 INPUT adressen$(zeiger, index) 
15080 NEXT index 
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Starten Sie das Programm, nachdem Sie diese Zeilen eingegeben 
haben, und wählen die Funktion 3 aus. Was nun geschieht, 
bewirkt allein diese ausgetüftelte Schleife. Ein gesamter 
Adressensatz wird mit 4 Befehlen eingelesen. Innerhalb der 
Schleife wird zunächst der Name des Feldes ausgegeben. Die 
Variable ’index’ wird als Index auf das Array der Feldnamen 
benutzt. Gleich hinter dem Feldnamen (Semikolon!) wird dann 
der Feldinhalt eingelesen. Hier wird zweimal indiziert, da die 
Adressen bekanntlich in einem zweidimensionalen Array 
gespeichert werden. Der erste Index ergibt sich aus der Variablen 
’zeiger’, die nach jeder Eingabe einer Adresse um 1 erhöht wird. 
Als zweiter Index wird wiederum die Variable ’index’ eingesetzt. 
Es werden also alle 7 Felder nacheinander über die Tastatur 
eingegeben. 


Nachdem wir die Felder eingelesen haben, müssen wir dem 
Anwender die Möglichkeit geben, die Eingabe zu wiederholen. Er 
kann sich irgendwo verschrieben haben und muß dann 
korrigieren. 


15090 LOCATE 1,18 

15110 PRINT "Daten richtig eingegeben (j/n)"; 
15120 INPUT antwort$ 

15130 IF antwort$="j"THEN 15150 

15140 IF antwort$="n" THEN zeiger=zeiger-1: 

GOSUB 300:G0T0 15000 

15145 fehler$="'j' oder 'n' druecken!'":GOSUB 300: 
GOTO 15090 


Wenn die Daten richtig eingegeben wurden, so wird das 
Programm fortgesetzt. Sind die Daten nicht richtig eingegeben 
worden, so wird der Programmteil nochmals gestartet. Vorher 
wird jedoch der Satzzähler um eins vermindert, da sonst in Zeile 
15030 ein Datensatz weiter geschaltet wird. Wir wollen den 
letzten Satz jedoch nochmal eingeben. Wird keine richtige 
Antwort gegeben, so wird eine Fehlermeldung ausgegeben und 
anschließend neu eingelesen. 


Das Programm wird nun mit einer weiteren Frage fortgesetzt: 
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15150 LOCATE 1,20 

15160 PRINT "Weitere Eingaben (j/n)"; 

15170 INPUT antwort$ 

15180 IF antort$="j" THEN GOSUB 300:G0T0 15000 

15190 IF antwot$="n" THEN 1000 

15200 fehler$="'j! oder 'n' druecken!":GOSUB 200:G0T0 15150 


Hier muß sich der Anwender entscheiden, ob er weitere Adressen 
eingeben möchte oder nicht. Wenn ja, dann wird der 
Programmteil erneut gestartet. Wenn nein, so wird zurück ins 
Menü verzweigt. Eine falsche Eingabe führt wieder zur Fehler- 
meldung und erneuten Abfrage. 


Damit haben wir den ersten Programmteil abgeschlossen. Man 
kann nun beliebig viele Daten eingeben, aber noch nicht viel 
damit anfangen. Zum Schluß folgt nochmals der gesamte 
Programmteil "ADRESSEN EINGEBEN!", den Sie mit Ihrem nun 
vergleichen können: 


15000 REM =================== 

15010 REM Adressen eingeben 

15020 REM ============22====== 

15030 zeiger=zeiger+1 

15040 PRINT 

15050 FOR index=1 TO 7 

15060 PRINT feld$Cindex); 

15070 INPUT adressen$(zeiger, index) 

15080 NEXT index 

15090 LOCATE 1,18 

15100 PRINT "Daten richtig eingegeben (j/n)"; 
15110 INPUT antwort$ 

15120 IF antwort$="j" THEN 15150 

15130 IF antwort$="n" THEN zeiger=zeiger-1: 
GOSUB 300:G0T0 15000 

15140 fehler$="!j'! oder 'n! druecken!": 
GOSUB 200:G60T0 15090 

15150 LOCATE 1,20 

15160 PRINT "Weitere Eingaben (j/n)"; 
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15170 INPUT antwort$ 

15180 IF antwort$="j" THEN GOSUB 300:G0T0 15000 
15190 IF antwort$="n" THEN 1000 

15200 fehler$="!j' oder 'n! druecken!": 

GOSUB 200:G0T0 15150 


ADRESSEN ÄNDERN 


Nun möchten wir dem Anwender unseres Programms die 
Möglichkeit geben, einzelne Felder eines bestimmten Datensatzes 
zu ändern. Wir benutzen dazu die Funktionstasten. Mit der Taste 
’y’ soll vorwärts, und mit der Taste ’r’ rückwärts "geblättert" 
werden. Soll eine Adresse geändert werden, so wird die Taste ’a’ 
gedrückt. Mit der Taste ’RETURN’ wird zurück ins Menü 
verzweigt, die Änderung also abgeschlossen. 


Das hört sich alles gut an, muß aber erst programmiert werden. 
Doch fangen wir zunächst mit den ersten Zeilen an: 


20000 REM ==================== 
20010 REM Adressen aendern 


20020 REM ============2======== 


Diese Zeilen bedürfen keines Kommentars. Nun aber wird es 
kritisch. Wie gehen wir dieses Problem an? Wir wählen uns 
zunächst eine Variable aus, die den ersten Index des Arrays 
(Tabelle) der Adressen darstellen soll. Dies ist die Varibale 
’zaehler’, die den Anfangswert 1 erhält. 


20030 zaehler=1 


Nun können wir die erste Adresse in der Tabelle ausgeben. Sie 
besteht bekanntlich aus 7 Feldern, deren Namen in einem Array 
gespeichert sind. Wir codieren wieder eine Schleife, die die 
Nummer des Feldes, den Namen und den Inhalt ausgibt. 
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20040 LOCATE 1,10 

20050 FOR index=1 TO 7 

20060 PRINT index; feld$( index) ;adressen$(zaehler, index) 
20070 NEXT index 


Es werden also 7 Zeilen ausgegeben, die jeweils die Nummer des 
Feldes, dessen Bezeichnung und den Inhalt enthält. Der Inhalt des 
Feldes ergibt sich aus dem Index ’zaehler’, der bekanntlich auf 
den Datensatz zeigt, und dem eigentlichen Feldindex (’index’). 


Nachdem die erste Adresse ausgegeben wurde, muß der Anwen- 
der weiter entscheiden. Er hat vier Möglichkeiten: 


Taste ’v’ vorwärts blättern (nächste Adresse) 
Taste ’r’ rückwärts blätten (letzte Adresse) 
Taste ’a’ angezeigte Adresse ändern 

Taste ’RETURN’ zurück ins Menü 


Nun müssen wir solange die Tastatur abfragen, bis irgendeine 
Taste gedrückt ist. Der Befehl dazu ist INKEY$. 


Problem: Lesen eines Zeichens von Tastatur 
Befehl: s=INKEY$ 
Parameter: s- Stringvariable, in der die 


gedrückte Taste gespeichert 
werden soll 


Beispiel: X$=INKEY$ 
Testet, ob eine Taste gedrückt wurde und 
speichert diese Taste in X$. Danach wird der 
Programmablauf sofort fortgesetzt. 


Bemerkung: Ist keine Taste gedrückt, so wird die String- 
variable gelöscht. 
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Wollen Sie das Programm nur dann fortsetzen, wenn eine Taste 
gedrückt ist, so ist z.B. folgende Zeile notwendig (diese Zeile 
bitte nicht eingeben): 


10 X$=INKEY$:IF X$="" THEN 10 


Es wird also immer wieder die Zeile 10 ausgeführt, bis eine Taste 
gedrückt ist. So eine Anweisung folgt auch in unserem Programm. 


20080 taste$=INKEY$:IF taste$="" THEN 20080 


Wenn diese Zeile durchlaufen wurde, hat der Benutzer eine Taste 
gedrückt. Wir müssen nun abfragen, ob er eine der Tasten v,r,a 
oder RETURN gedrückt hat und entsprechend reagieren. 
Zunächst fragen wir die Taste RETURN ab, die bekanntlich den 
ASCII-Code 13 hat: 


20090 IF taste$=chr$(13) THEN 1000 


Wir verzweigen also zum Menü, wenn die Taste RETURN 
gedrückt wurde. Wird die Taste ’v’ gedrückt, so soll der nächste 
Datensatz ausgegeben werden. Wir erhöhen dazu den Index 
’zaehler’ um 1, aber nur wenn ’zaehler’ nicht schon den letzten 
Satz erreicht hat (zaehler=zeiger). Die folgende Zeile erfüllt diese 
Aufgabe: 


20100 IF taste$="v"" AND zaehler<zeiger THEN 
zaehler=zaehler+1:G0SUB 300:G0T0 20040 


Nur wenn die Taste ’v’ gedrückt wurde UND die letzte Adresse 
noch nicht erreicht ist, wird der Zaehler auf die nächste Adresse 
gesetzt und dies wieder ausgegeben. 


Bei der Taste ’r’ ist es ähnlich, nur muß ’zaehler’ um 1 vermin- 
dert werden, wenn ’zaehler’ nicht schon 1 ist, weil dann die erste 
Adresse vorliegt. 


20110 taste$="r" AND zaehler>1 THEN zaehler=zaehler-1: 
GOSUB 300:G0T0 20040 
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Bei Zeile 20040 wird die Adresse mit dem Index ’zaehler’ aus- 
gegeben. Dieser Zähler wurde hier um eins vermindert. 


Nun müssen wir noch abfragen, ob die Taste ’a’ gedrückt wurde. 
Mit dieser Taste wird die Änderung eingeleitet. 


20120 IF taste$="a" THEN 20140 
20130 fehler$="Eingabefehler!":G0SUB 200:G0T0 20080 


Die Zeile 20130 wird erreicht, wenn die Tasten ’v’ oder ’r’ die 
Datei über- oder unterschreiten wollten oder wenn keine gültige 
Taste gedrückt wurde. Dann werden die Tasten einfach ignoriert, 
eine Fehlermeldung ausgegeben und zur Zeile 20080 verzweigt. In 
dieser Zeile wird erneut die Tastatur abgefragt. 


Nun fehlt nur noch die eigentliche Änderung des Datensatzes ab 
Zeile 20140. Dort soll zuerst nach der Nummer und anschließend 
nach dem neuen Inhalt des zu ändernden Feldes gefragt werden. 


20140 LOCATE 1,18 

20150 INPUT "Feldnummer (1-7): ";nummer 

20160 IF nummer>1 AND nummer<8 THEN 20180 

20170 fehler$="Nummer 1-7 eingeben!":GOSUB 200:G0T0 20140 
20180 INPUT "Neuer Inhalt: ";adressen$(zaehler ‚nummer ) 
20190 GOSUB 300:G0T0 20040 


Dies war schon der Rest unseres Programmteils. Zunächst wird 
die Nummer des zu ändernden Feldes in ’nummer’ eingelesen. 
Danach wird getestet, ob ’nummer’ einen gültigen Wert enthält. 
Ist dies der Fall, so wird ab Zeile 20180 der neue Inhalt dieses 
Feldes eingelesen und der neu entstandene Adressensatz ab der 
Zeile 20040 ausgegeben. Bei Eingabe einer ungültigen Zahl wird 
in Zeile 20170 eine Fehlermeldung ausgegeben. Dieser 
Programmteil kann nur über die Taste RETURN’ verlassen 
werden. Nun folgt auch hier die Auflistung des kompletten Teils 
"ADRESSEN AENDERN": 
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20000 
20010 
20020 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
GOSUB 
20110 
GOSUB 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 


REM =======2=2=2=2=2===2====== 

REM Adressen ändern 

REM =====2=2=2=2=2=2=22=2=2=2=2==2== 

zaehler=1 

LOCATE 1,10 

FOR index=1 TO 7 

PRINT index; feld$( index);adressen$(zaehler, index) 
NEXT index 

taste$=INKEY$: IF taste$="" THEN 20080 

IF taste$=CHR$C13) THEN 1000 

IF taste$="v" AND zaehler<zeiger THEN zaehler=zaehler+1: 
300:G0T0 20040 

IF taste$="r" AND zaehler>i THEN zaehler=zaehler-1: 
300:G0T0 20040 

IF taste$="a" THEN 20140 
fehler$="Eingabefehler!":G0OSUB 200:G0T0 20080 
LOCATE 1,18 

INPUT "Feldnummer (1-7)"; nummer 

IF nummer>0 AND nummer<8 THEN 20180 
fehler$="Nummer 1-7 eingeben! '":GOSUB 200:G0T0 20140 
INPUT "Neuer Inhalt: ";adressen$(zaehler ‚nummer) 
GOSUB 300:G0T0 20040 


1 


1 
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ADRESSEN LÖSCHEN 


Beim Löschen der Adresse wenden wir eine andere Technik als 
beim Ändern an. Sie sollen ja möglichst vielseitg programmieren 
lernen. Wir müssen den Vor- und Zunamen der zu löschenden 
Adresse angeben. Ist er nicht bekannt, so kann man ihn mit dem 
"blättern" in "ADRESSEN AENDERN" ermitteln. 


Doch bevor dieser Teil des Programms beginnt, soll geprüft wer- 
den, ob überhaupt Daten im Rechner gespeichert sind. Zur 
Ausgabe der Fehlermeldung bauen wir eine Routine ab Zeile 500 
auf. Schauen wir uns zunächst die komplette Routine an: 


500 REM ===2=2=2=2=2=2=22=2=2=22=2222=2= 
510 REM Keine Daten! 
520 REM ====2=2=2=2=2=2=222=22=222=== 


530 fehler$="Keine Daten im Rechner!" 
540 GOSUB 200 
550 RETURN 


Diese Routine ist zwar kurz, trotzdem sinnvoll. Wir sollten die 
Überprüfung auch im Programmteil "ADRESSEN AENDERN" 
machen. Wenn keine Adressen vorhanden sind, kann man auch 
keine ändern! Fügen Sie dazu die folgende Zeile ein: 


20030 IF zeiger=0 THEN GOSUB 500:G0T0 1000 


Es wird geprüft, ob Daten im Rechner sind. Die Variable ’zeiger’ 
enthält immer den letzten Datensatz und somit die Anzahl der im 
Rechner gespeicherten Adressen. Ist diese Variable 0, so sind 
keine Daten eingegeben und auch keine geladen worden. Wir 
geben dann die Fehlermeldung "Keine Daten im Rechner!" mit 
der Routine ab Zeile 500 aus und verzweigen zurück zum Menü. 


Fangen wir nun mit unserem Programmteil an. Die ersten Zeilen 
sind erfahrungsgemäß immer die leichtesten. 
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25000 REM ==================== 
25010 REM ADRESSEN LOESCHEN 
25020 REM ===============2===== 


25030 IF zeiger=0 THEN GOSUB 500:G0T0 1000 
25040 LOCATE 1,10 

25050 INPUT "Vorname: ";vorname$ 

25060 INPUT "Name : ";name$ 


Wir prüfen zunächst, ob Daten im Rechner vorhanden sind. Wenn 
ja, lesen wir Vorname und Name der zu löschenden Adresse ein. 
Diese beiden Eingaben speichern wir in ’vorname$’ und ’name$'. 
Nun müssen wir die gesamte Adressentabelle nach diesen Namen 
durchsuchen. Eine FOR...NEXT-Schleife kann hier nicht einge- 
setzt werden, da diese mit Sicherheit vorzeitig verlassen wird, 
nämlich dann, wenn die Adresse gefunden wurde. FOR...NEXT- 
Schleifen sollte man nicht vorzeitig abbrechen. Der Grund dafür 
ist folgender: Die Adresse des Schleifenanfangs wird im Rechner 
abgelegt. Erst nach ordnungsgemäßem Ablauf der Schleife wird 
diese Adresse wieder gelöscht. Wird die Schleife nun mehrmals 
vorzeitig verlassen, so füllt sich dieser Speicherbereich. Dies kann 
dazu führen, daß das Programm aussteigt. 


Wir bauen also eine selbst gesteuerte Schleife auf. 


25070 schleife=1 

25080 IF adressen$(schleife,2)=vorname$ AND 
adressen$(schleife,3)=name$ THEN 25110 

25090 IF schleife<zeiger THEN schleife=schleife+1: 

GOTO 25080 

25100 fehler$="Adresse nicht vorhanden! ":GOSUB 200:G0T0 1000 


Der Anfangswert der Schleifenvariablen ’schleife’ wird zunächst 
auf 1 gesetzt. Innerhalb der Schleife wird geprüft, ob die mit 
’schleife’ indizierte Adresse mit der gesuchten übereinstimmt. Der 
zweite Index 2 und 3 enspricht dem Vornamen und dem Namen, 
der mit ’vorname$’ und ’name$’ verglichen wird. Stimmt der 
Name überein, so wird das Program in Zeile 25110 fortgesetzt. In 
der Zeile 25090 wird die Schleifenvariable um 1 erhöht, sofern 
sie noch nicht das Ende der Adresstabelle erreicht hat. 
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Wird die Schleife komplett durchlaufen, also nicht durch 
Auffinden des Namens abgebrochen, so ist der Name nicht 
gefunden worden. Hier geben wir eine Meldung aus und 
verzweigen zurück ins Menü. 


Wir müssen das Programm nun an der Stelle fortsetzen, zu der 
beim Auffinden des gesuchten Namens verzweigt wird. Dies ist 
die Zeile 25110. Hier soll die komplete zu löschende Adresse 
nochmals angezeigt werden, damit der Anwender dann entschei- 
den kann, ob sie wirklich gelöscht werden soll. 


25110 GOSUB 300:L0CATE 1,10 

25120 FOR index=1 TO 7 

25130 PRINT feld$Cindex);adressen$(schleife, index) 

25140 NEXT index 

25150 LOCATE 1,18 

25160 INPUT "Adresse loeschen (j/n) ";antwort$ 

25170 IF antwort$="j" THEN 25200 

25180 IF antwort$="n" THEN 1000 

25190 fehler$="'j' oder 'n! druecken!':GOSUB 200:G0T0 25150 


Hier wird zunächst ein neuer Bildschirm aufgebaut und der 
Cursor positioniert (Zeile 25110). Danach wird mit der Schleife in 
Zeile 25120 bis 25140 der Adressensatz ausgegeben. Nun fragen 
wir nach, ob diese Adresse wirklich gelöscht werden soll. Soll 
diese Adresse nicht gelöscht werden (unentschlossene Leute gibt 
es überall), so wird zurück ins Menü verzweigt. Soll die Adresse 
doch gelöscht werden, so geschieht dies ab Zeile 25200. Werfen 
wir zunächst einen Blick in die letzten Zeilen dieses 
Programmteils. 


25200 FOR il=schleife TO zeiger-1 

25210 FOR i2=1 T0 7 

25220 adressen$(i1,i2)=adressen$(i1+1,i2) 
25230 NEXT i2 

25240 NEXT i1 

25250 zeiger=zeiger-1 

25260 GOTO 1000 
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Zum Löschen einer Adresse reicht es nicht, den entsprechenden 
Tabellenplatz zu löschen. Würden wir dies tun, so bleibt die 
Größe der Tabelle trotz Löschen einer Adresse erhalten. Dies ist 
nicht im Sinne des Erfinders. Alle Adressen, die sich hinter der 
zu löschenden Adresse befinden, müssen eine Stelle nach vorne 
rücken. Wenn z.B. die Adresse mit dem Index 5 gelöscht wird 
und 7 Adressen im Rechner gespeichert sind, so rückt die 6. 
Adresse auf die 5., die somit gelöscht wird. Die letzte, also 7. 
Adresse rückt auf die 6. Wenn wir nun die Anzahl der Adressen 
auf 6, also um eins vermindern. So ist die Adresse mit dem Index 
5 "echt" gelöscht worden. 


Bei der Programmierung dieses Prinzips taucht zum ersten Mal 
eine verschachtelte Schleife auf. Innerhalb der Schleife mit der 
Variablen ’il’ befindet sich die Schleife ’i2’. Die Schleife ’i1’ 
durchläuft alle Datensätze ab dem zu löschenden Datensatz. Die 
Felder werden alle einzeln nachgerückt. Sind alle Felder 
aufgerückt, so kann der nächste Datensatz bearbeitet werden. Die 
äußere Schleife läuft nur bis ’zeiger-1’, da der letzte Datensatz in 
Zeile 25220 mit il+1 indiziert wird. Wenn Sie die entsprechenden 
Zeilen studieren, so erkennen Sie die Technik dieses 
"Aufrückens". 


Nun haben wir auch diesen Teil unseres zur Zeit recht umfang- 
reichen Programms fertiggestellt. Es folgt nun wie immer die 
komplette Auflistung dieses Abschnittes: 


25000 REM =======2===22222222== 

25010 REM Adressen loeschen 

25020 REM ===========2===2=2===== 

25030 IF zeiger=0 THEN GOSUB 500:G0T0 1000 

25040 LOCATE 1,10 

25050 INPUT "Vorname: ";vorname$ 

25060 INPUT "Name : ";name$ 

25070 schleife=1 

25080 IF adressen$(schleife,2)=vorname$ AND 
adressen$(schleife,3)=name$ THEN 25110 

25090 IF schleife<zeiger THEN schleife=schleife+1:60T0 25080 
25100 fehler$="Adresse nicht vorhanden! ":GOSUB 200:G0T0 1000 
25110 GOSUB 300:L0CATE 1,10 
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25120 FOR index=1 TO 7 

25130 PRINT feld$(index);adressen$(schleife, index) 
25140 NEXT index 

25150 LOCATE 1,18 

25160 INPUT "Adresse loeschen (j/n) ";antwort$ 
25170 IF antwort$="j" THEN 25200 

25180 IF antwort$="n" THEN 1000 

25190 fehler$="!j' oder '!n! druecken!':GOSUB 200:G0T0 25150 
25200 FOR il=schleife TO zeiger-1 

25210 FOR i2=1 TO 7 

25220 adressen$(i1, i2)=adressen$(i1+1,i2) 

25230 NEXT i2 

25240 NEXT il 

25250 zeiger=zeiger-1 

25260 GOTO 1000 


ADRESSEN AUSGEBEN 


Dieser Programmabschnitt gehört sicherlich nicht zu den 
leichtesten. Hier wollen wir zum ersten Mal auf dem Drucker 
ausgeben. Doch auch Bildschirmausgabe soll ermöglicht werden. 
Nach Auswahl, ob denn nun auf dem Bildschirm oder dem 
Drucker ausgegeben werden soll, geben Sie die Suchbegriffe ein. 
Doch schreiben wir zunächst die ersten Zeilen. 


30000 REM ==================== 
30010 REM Adressen ausgeben 
30020 REM ==================== 


30030 if zeiger=0 THEN GOSUB 500:G0T0 1000 

30040 LOCATE 1,10 

30050 INPUT "Drucker oder Bildschirm (d/b) ";antwort$ 
30060 IF antwort$="d" THEN geraet=8:G60T0 30090 

30070 IF antwort$="b" THEN geraet=0:G60T0 30090 

30080 fehler$="'d' oder 'b'! druecken!'":GOSUB 200:G0T0 30040 
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Hier wird wieder geprüft, ob Daten im Rechner sind (Zeile 
30030). Danach wird gefragt, ob auf Drucker oder Bildschirm 
ausgegeben werden soll. Die Antwort (’d’ oder ’b’) wird in der 
Stringvariablen ’antwort$’ festgehalten. Falls der Drucker ausge- 
wählt wurde, wird die Variable ’geraet’ auf 8 gesetzt. Dies wird 
für einen neuen PRINT-Befehl benötigt, den wir zunächst 
beschreiben: 


Problem: Ausgabe auf verschiedene Geräte 
Befehl: PRINT #2g.......... 
Parameter: g- Nummer des Geräts (0-9) 
0- Bildschirm 
1bis 7 - Bildschirmfenster (in diesem 
Buch nicht beschrieben) 
8- Drucker 
%- Diskette 
Beispiel: PRINT #8," ADRESSENLISTE" 


Gibt den Text "ADRESSENLISTE" auf dem 
Drucker aus. 


Bemerkung: Der Befehlszusatz ’#g’ kann auch bei den 
bereits bekannten Befehlen LIST und INPUT 
verwendet werden. 


Wir können also mit PRINT auch auf dem Drucker oder auf das 
Diskettenlaufwerk Daten ausgeben. Wir haben in der Variablen 
’geraet’ diese entsprechende Nummer abgelegt. Wenn wir nun zur 
Ausgabe immer ’PRINT #geraet,....’. angeben, so wird abhängig 
von der Variablen entweder auf dem Drucker oder auf dem 
Bildschirm ausgegeben. 


Doch warum kann die Gerätenummer auch bei den Befehlen 
LIST und INPUT angegeben werden. Beim Befehl LIST ist die 
Ausgabe des Listings auf dem Drucker interessant. Zu beachten 
ist jedoch, daß der Zusatz ’#8’° HINTER dem Zeilenbereich 
angegeben wird. Zwei Beispiele: 
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LIST #8 gibt das gesamte Programm auf dem 
Drucker aus 
LIST 1000-,#8 gibt die Zeilen ab einschließlich 1000 auf 


dem Drucker aus 


Der Zusatz ’#9’ beim Befehl INPUT liest Daten von der Diskette, 
doch dazu kommen wir später. Nun wieder zu unserem 
Programm. 


Wir haben also bisher die Gerätenummer zur Ausgabe bestimmt. 
Da wir nicht immer grundsätzlich alle Adressen ausgeben 
möchten, wollen wir für jedes Feld ein Suchkriterium bestimmen. 
Schauen Sie sich zunächst die folgenden Zeilen an: 


30090 GOSUB 300:L0CATE 1,10 
30100 PRINT "Suchbegriffe:" 
30110 PRINT "------------- “ 
30120 PRINT 

30130 FOR index=1 TO 7 
30140 such$( index)="" 
30150 PRINT feld$Cindex); 
30160 INPUT such$( index) 
30170 NEXT index 


Die Zeile 30090 erstellt nun einen neuen Bildschirm, bevor die 
Zeilen 30100-30110 signalisieren, daß nun die Suchbegriffe 
eingegeben werden müssen. Die Eingabe erfolgt wieder in einer 
Schleife. Doch zuvor müssen die Suchbegriffe, die im Array 
’such$’ gespeichert werden, gelöscht werden. Sie können noch 
Daten aus vorherigen Suchen enthalten. Die Begiffe werden dann 
in der Zeile 30160 eingelesen. Wenn z.B. alle Adressen aus 
Düsseldorf gesucht werden sollen, so geben Sie in den ersten 4 
Feldern nur RETURN ein. Das 5. Feld, daß die Postleitzahl und 
den Ort enthält, wird mit "4000 Duesseldorf" gefüllt und 
anschließend mit RETURN abgeschlossen. Die restlichen 2 Felder 
werden wiederum mit RETURN ignoriert. Wollen Sie aber alle 
Herren aus Düsseldorf suchen, so geben Sie zusätzlich bei der 
Anrede "Herr" ein. Sie können also nach mehreren Begriffen 
gleichzeitig suchen. 
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Nach der Eingabe der Suchbegriffe soll die Suche beginnen. 


30180 FOR i1=1 TO zeiger 

30190 gefunden=0 

30200 FOR i2=1 TO 7 

30210 IF such$(Ci2)="" OR such$(Ci2)=adressen$(i1,i2) 
THEN gefunden=gefunden+1 

30220 NEXT i2 


Wir benötigen wieder eine zweifach verschachtelte Schleife, die 
innerhalb der Datensätze alle Felder durchsucht. Nach dem 
Anfang der äußeren Schleife (Zeile 30180) wird in Zeile 30190 
eine Variable ’gefunden’ auf 0 gesetzt. In dieser Variablen sollen 
alle Felder gezählt werden, für die entweder kein Suchbegriff 
eingegeben wurde, oder für die ein Suchbegriff eingegeben 
wurde, der mit dem Inhalt des Feldes übereinstimmt. Wenn für 
ein Feld kein Suchbegriff eingegeben, also nur RETURN 
gedrückt wurde, so enthält die Variable ’such(i2)’ nichts 
(such(i2)=""). Dieser Vergleich und das Erhöhen der Variablen 
’gefunden’ geschieht in der Zeile 30210. Wenn nach Ablauf der 
inneren Schleife (i2) der Erfolgszähler ’gefunden’ 7 beträgt, 
entspricht die Adresse den Suchkriterien und kann ausgegeben 
werden. Die folgenden Zeilen leiten diese Ausgabe ein: 


30230 IF gefunden<>7 THEN 30300 
30240 IF geraet=0 THEN GOSUB 300 
30250 PRINT #geraet 


Hier wird die Ausgabe des gefundenen Datensatzes vorbereitet. 
Nur wenn der Datensatz nicht den Suchbegriffen entspricht 
(’gefunden’ ungleich 7) wird die gesamte Ausgabe übersprungen. 
Wenn der Bildschirm ausgewählt wurde, wird ein neuer Kopf 
erzeugt. Anschließend wird auf das ausgewählte Gerät eine 
Leerzeile ausgegeben.Es folgen nun die restlichen Zeilen dieses 
Programmabschnittes, die anschließend wieder dokumentiert 
werden. 
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30260 FOR index=1 TO 7 

30270 PRINT #geraet, feld$(index);adressen$(i1, index) 

30280 NEXT index 

30290 PRINT #geraet 

30295 IF geraet=0 THEN INPUT "Druecken Sie RETURN ";antwort$ 
30300 NEXT i1 

30310 GOSUB 300:L0CATE 1,18 

30320 PRINT "** DATEIENDE **" 

30330 INPUT "Druecken Sie RETURN ";antwort$ 

30340 GOTO 1000 


In diesen Zeilen dreht sich fast alles um die Ausgabe des 
gefundenen Datensatzes. Die Zeilen 30260 bis 30280 bilden eine 
Schleife, in der die 7 Felder der Adresse mit ihrer Bezeichnung 
auf das ausgewählte Gerät ausgegeben werden. 


Wenn Bildschirmausgabe ausgewählt wurde, wird erst nach 
Drücken von RETURN mit der Suche fortgefahren (Zeile 30295). 
Weitersuchen heißt hier, die Schleife ’i1’ mit dem Befehl ’'NEXT 
il’ um eins zu erhöhen. Ist die Druckerausgabe aktuell, so wird 
die Zeile zum Betätigen von RETURN übersprungen. Es werden 
also alle Adressen hintereinander ausgedruckt. 


Hinter dem Ende der Schleife ’i1’ ist die Suche beendet. Es wird 
durch die Meldung "* DATEIENDE **" signalisiert. Wenn der 
Anwender nun RETURN drückt, wird der Programmabschnitt 
beendet, also zurück zum Menü verzweigt. 


Dies war ein weiterer Meilenstein zu unserer Adressenverwaltung. 
Nun müssen nur noch die Teile zum Laden und Speichern der 
Datei auf Diskette geschrieben werden. 


Mit dem folgenden Listing können Sie nochmals Ihren 
Programmteil "ADRESSEN AUSGEBEN" kontrollieren: 
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30000 REM ===========2========= 

30010 REM Adressen ausgeben 

30020 REM ===========2=222===2=== 

30030 IF zeiger=0 THEN GOSUB 500:G0T0 1000 

30040 LOCATE 1,10 

30050 INPUT "Drucker oder Bildschirm (d/b) ";antwort$ 
30060 IF antwort$="d" THEN geraet=8:G0T0 30090 

30070 IF antwort$="b" THEN geraet=0:G0T0 30090 

30080 fehler$="!d'! oder 'b' druecken!":GOSUB 200:G0T0 30040 
30090 GOSUB 300:LOCATE 1,10 

30100 PRINT"Suchbegriffe:" 

30110 PRINT"------------- ” 

30120 PRINT 

30130 FOR index=1 TO 7 

30140 such$( index)="" 

30150 PRINT feld$Cindex); 

30160 INPUT such$( index) 

30170 NEXT index 

30180 FOR i1=1 TO zeiger 

30190 gefunden=0 

30200 FOR i2=1 TO 7 

30210 IF such$(i2)="" OR such$(i2)=adressen$(i1,i2) THEN 
gefunden=gefundent 1 

30220 NEXT i2 

30230 IF gefunden<>7 THEN 30300 

30240 IF geraet=0 THEN GOSUB 300 

30250 PRINT #geraet 

30260 FOR index=1 TO 7 

30270 PRINT #geraet, feld$(index);adressen$(i1, index) 
30280 NEXT index 

30290 PRINT #geraet 

30295 IF geraet=0 THEN INPUT "Druecken Sie RETURN";antwort$ 
30300 NEXT i1 

30310 GOSUB 300:LOCATE 1,18 

30320 PRINT "** DATEIENDE **" 

30330 INPUT "Druecken Sie RETURN ";antwort$ 

30340 GOTO 1000 
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DATEI SICHERN 


Wir nähern uns dem Abschluß der Adressenverwaltung. Die 
eingegebenen Daten gehen mit dem Abschalten des Rechners 
natürlich verloren. Wir wollen unsere Adressen auf dem 
Diskettenlaufwerk speichern. Was muß nun zuerst beachtet 
werden? Beginnen wir diesen Teil wie üblich mit dem Bild- 
schirmkopf und der Abfrage, ob Daten im Rechner gespeichert 
sind. 


10000 REM ==========2=====2===== 

10020 REM DATEI SPEICHERN 

10030 REM =========2===2=2=2=2===== 

10040 IF zeiger=0 THEN GOSUB 500:G0T0 1000 


Diese Zeilen sind uns nicht mehr unbekannt. Bevor wir die Daten 
auf der Diskette speichern können, muß diese erst eingelegt 
werden. Die folgenden Zeilen fordern dazu auf. 


10050 LOCATE 1,12 

10060 PRINT "Bitte Datendiskette einlegen! " 

10070 PRINT 

10080 INPUT "Druecken sie danach RETURN ";antwort$ 


Auch diese Zeilen dürften Ihnen keine Verständnis- 
schwierigkeiten bereiten. Doch nun geht es los. Um die Daten mit 
dem Befehl ’PRINT #9,...’ auf die Diskette speichern zu können, 
müssen wir das Diskettenlaufwerk vorbereiten. Man sagt dazu, 
"die Datei muß geöffnet werden". Dazu gibt es den folgenden 
Befehl: 
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Problem: Öffnen einer Datei zum Schreiben 
Befehl: OPENOUT "name" 

Parameter: name - Name der Datei 
Beispiel: OPENOUT "Adressen" 


Öffnet die Datei "Adressen" zum Schreiben 


Mit diesem Befehl öffnen wir also unsere Datei, bevor die Daten 
übermittelt werden. 


Da wir für unsere Datei immer den Namen Adressen benutzen, 
müssen wir ein evtl. vorhandene Datei unter diesen Namen 
löschen. Das Löschen und das Öffnen der Datei übernehmen die 
folgenden Zeilen: 


10090 a$="Adressen": |ERA,da$ 
10100 OPENOUT "Adressen!" 


Das Zeichen ’) erreichen Sie mit SHIFT @. 


Die Daten können jetzt gespeichert werden. Das erste, was wir 
auf die Diskette schreiben, ist die Anzahl der zu übermittelnden 
Datensätze, die bekanntlich in ’zeiger’ gespeichert ist. Danach 
senden wir die einzelnen Felder der Adressentabelle mit Hilfe 
einer verschachtelten Schleife, die Ihnen nicht mehr unbekannt 
ist. Zuerst Feld 1 bis 7 des ersten Datensatzes, dann Feld 1 bis 7 
des zweiten, usw.: 


10110 PRINT #9,zeiger 

10120 FOR i1=1 TO zeiger 

10130 FOR i2=1 TO 7 

10140 PRINT #9,adressen$(i1,i2) 
10150 NEXT i2 

10160 NEXT i1 


Nach der Speicherung der Daten muß die Datei wieder 
geschlossen werden. Der Befehl dazu heißt sinngemäß 
’CLOSEOUT'. Wir setzen ihn in die nächste Zeile: 
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10170 CLOSEOUT 


Nach Speicherung der Daten soll dies noch einmal gemeldet 
werden. Die folgenden Zeilen sind dafür zuständig. 


10180 GOSUB 300 

10190 PRINT "Die Adressen sind gespeichert!" 
10200 FOR i=1 TO 2000:NEXT i1 

10210 GOTO 1000 


Zunächst wird ein neuer Bildschirm erzeugt. Nach dem Hinweis 
folgt eine Warteschleife von ca. 2 Sekunden. Danach wird ins 
Menü verzweigt. 


So einfach ist das Speichern von Daten auf dem Disketten- 
laufwerk. Doch nun wollen wir diese Daten wieder zurückholen. 


DATEI LADEN 


Das Laden der Adressen verläuft fast auf die gleiche Weise wie 
das Speichern. Hier wird nicht geprüft, ob Daten im Rechner 
vorhanden sind. Der Anwender sollte also neu eingegebenene 
Adressen erst abspeichern, bevor er eine Adressendatei lädt. 


5000 REM ===========2=2=2=22===== 

5010 REM Datei laden 

5020 REM ==================== 

5030 LOCATE 1,12 

5040 PRINT"Bitte Diskette einlegen!" 

5050 PRINT 

5060 INPUT"Druecken Sie danach RETURN ";antwort$ 
5070 PRINT 


Nachdem alle Vorbereitungen getroffen sind, kann die Datei 
wieder geöffnet werden. Diesmal aber zum Lesen. Schauen Sie 
sich auch hier zunächst die Beschreibung an: 
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Problem: Öffnen einer Datei zum Lesen 
Befehl: OPENIN "name" 

Parameter: name - Name der Datei 
Beispiel: OPENIN "Adressen" 


Öffnet die Datei "Adressen" zum Lesen 
Setzen wir diesen Befehl nun in unser Programm ein: 


5080 OPENIN "Adressen" 

5090 INPUT #9, zeiger 

5100 FOR i1=1 TO zeiger 

5110 FOR i2=1 T0 7 

5120 INPUT #9,adressen$(i1,i2) 
5130 NEXT i2 

5140 NEXT i1 

5150 CLOSEIN 


Hier wird die Datei "Adressen" auf der Diskette zum Lesen 
geöffnet. Der Lesezugriff wird durch den Befehl ’OPENIN’ 
gekennzeichnet. Danach wird die Anzahl der in dieser Datei 
gespeicherten Daten eingelesen. Diese Variable wird als Endwert 
für die Schleife ’il’ benutzt. Es werden also soviel Datensätze 
eingelesen, wie zuvor gespeichert wurden. Der Kanal wird in 
Zeile 5180 mit dem Befehl ’CLOSEIN’ wieder geschlossen. 


5160 GOSUB 300:PRINT "Datei ist geladen" 
5170 FOR i=1 TO 2000:NEXT i 
5180 GOTO 1000 


Die letzten Zeilen dieses Abschnitts geben wieder eine Meldung 
aus und verzweigen nach der Warteschleife zurück ins Menü. 


14 BASIC-Einführ 


PROGRAMM BEENDEN 


Wie zu Anfang des Kapitels bereits erwähnt, sollte ein Programm 
nicht mit Hilfe des Netzschalters ausgeschaltet werden. Wie ein 
Programm beendet werden sollte, wird nun demonstriert. Blicken 
wir zunächst wieder auf die ersten Zeilen. 


35000 REM ==================== 
35010 REM Programm beenden 
35020 REM ===========2===2==== 
35030 IF zeiger=0 THEN 35150 


Die ersten Zeilen werden Ihnen sicher schon langweilig. Doch die 
Zeile 35030 sieht ungewohnt aus. Wenn ’zeiger’ 0 ist, also wenn 
keine Daten im Rechner gespeichert sind, wird das Programm 
ohne weiteres sofort beendet. Dies geschieht in Zeile 35150. 


35040 LOCATE 1,12 

35050 PRINT"Sind alle Daten gesichert (j/n) "; 

35060 INPUT antwort$ 

35070 IF antwort$="n" THEN 1000 

35080 IF antwort$="j" THEN 35100 

35090 fehler$="!j! oder 'n! druecken!":GOSUB 200:G0T0 35040 


Langsam erkennt man den Sinn eines Programmteils 
"PROGRAMM BEENDEN". Es wird also festgestellt, ob alle 
Daten gesichert wurden. Immerhin kann man diesen Programm- 
abschnitt versehentlich aufgerufen haben. Wenn Sie nun mit nein 
antworten, kommen Sie wieder in das Menü zurück. Wenn Sie die 
Adressen jedoch abgespeichert haben, kann Sie nichts daran 
hindern, das Programm zu beenden. 


35100 GOSUB 300:L0CATE 1,12 

35110 PRINT"Das Programm kann mit 'GOTO 1000'wieder"" 
35120 PRINT"gestartet werden, ohne dass Daten ver-" 
35130 PRINT"loren gehen! I" 

35140 PRINT 

35150 END 
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Nun folgt vor Beendigung des Programms ein wichtiger Hinweis: 
Nach dem Verlassen des Programms kann man es mit dem Befehl 
’GOTO 1000’ wieder ohne Datenverlust starten. Der Befehl RUN 
löscht vor dem Start sämtliche Variablen, ist also nicht zu 
empfehlen. 


Nun haben wir es geschafft. Sie besitzen nun eine bis aufs Letzte 
dokumentierte Adressenverwaltung, bei deren Erstellung Sie 
sicher viel gelernt haben. Das, was Sie nun gelernt haben, können 
Sie entweder zur Verwirklichung eigener Ideen oder zur Durch- 
führung individueller Programmänderungen, speziell bei dieser 
Adressenverwaltung, verwenden. Falls Sie einige Abschnitte nicht 
sofort verstanden haben, arbeiten Sie diese ruhig nochmals durch. 
Möchten Sie BASIC bis ins letzte Detail lernen, so empfehle ich 
Ihnen das Buch "Das BASIC Trainingsbuch zum CPC", das sich an 
dieses Buch anlehnt. 
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KAPITEL 6: 
FARBE UND GRAFIK 


Für viele Käufer der zahlreich angebotenen Homecomputer ist 
die Farbdarstellung und vor allem die Grafikfähigkeit des 
Rechners ein entscheidendes Kaufkriterium. Der CPC bietet in 
seiner Preisklasse unvergleichbare Farbenpracht und hervor- 
ragende Grafikeigenschaften. So verfügt der Besitzer des 
CPC6128 über 27 Farben, von denen je nach Auflösung der 
Grafik 2, 4 oder 16 Farben ausgewählt werden können. Die Auf- 
lösung der Grafik reicht bis zu 640 x 200 Bildpunkten, was für 
einen Rechner dieser Preisklasse geradezu sensationell ist. 


DIE GRAFIKBETRIEBSARTEN 


Der CPC6128 arbeitet mit drei verschiedenen Grafikauflösungen, 
die mit dem bereits bekannten Befehl ’MODE’ ausgewählt 
werden. Es besteht somit ein unmittelbarer Zusammenhang 
zwischen Zeichendichte und Grafikauflösung. Die folgende 
Tabelle soll hier einen ersten Überblick verschaffen. 


Befehl Zeichen/ Auflösung Auflösung Farben 
Zeile Grafik Zeichen 

MODE 0 20 160 x 200 32x8 16 

MODE 1 40 320 x 200 16 x 8 4 

MODE 2 80 640 x 200 8x8 2 


Der Zusammenhang zwischen Zeichendichte und Grafikauflösung 
wird anhand dieser Übersicht deutlich. Sie erkennen auch, daß 
sich ein Zeichen im MODE 2 aus 8 mal 8 Punkten zusam- 
mensetzt. Im MODE 1 verdoppelt sich diese Matrix auf 16 x 8 
Punkten. Die meisten vergleichbaren Rechner stellen einzelne 
Zeichen in einer Matrix aus 8 x 8 Punkten dar und das bei 40 
Zeichen pro Zeile. Der CPC6128 bietet also in jeder Hinsicht eine 
doppelt so hohe Auflösung wie vergleichbare Rechner. 
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Jeweils 8 Bildpunkte werden in einer Speicherstelle festgehalten. 
Der gesamte Bildschirm setzt sich aus 640 x 200, also 128.000 
Punkten zusammen, deren Speicherung 16.000 Speicherstellen er- 
fordert. Von Ihrem Gesamtspeicher (64 KByte) gehen also ca. 16 
KByte zur Grafikspeicherung drauf. Bei den anderen Auflö- 
sungsarten verringert sich dieser Aufwand nicht, da zusätzlich zu 
dem Punkt die entsprechende Farbe festgehalten werden muß. 
Auch normaler Text wird im Grafikspeicher festgehalten. Viele 
andere Rechner vereinigen Text und Grafik nicht. Da gibt es 
jeweils einen eigenen Speicherbereich für Text und Grafik. 


DIE BILDSCHIRMFARBEN 


Nach dem Einschalten des Rechners erkennen Sie die Standard- 
farben der Betriebsart MODE 1, blau und hellgelb, vorausgesetzt 
Sie haben einen Farbmonitor oder -fernseher angeschlossen. Dies 
sind nur zwei der 27 möglichen Farben. In der folgenden Tabelle 
sind alle Farben zu ersehen. 


Nummer Farbe Nummer Farbe 

0 schwarz 13 weiß 

1 blau 14 pastellblau 

2 hellblau 15 orange 

3 rot 16 rosa 

4 magenta 17 pastellmagenta 

5 hellviolett 18 hellgrün 

6 hellrot 19 seegrün 

7 purpur 20 helltürkis 

8 hellmagenta 21 limonengrün 

9 grün 22 pastellgrün 

10 türkis 23 pastelltürkis 

11 himmelblau 24 hellgelb 

12 gelb 25 pastellgelb 
26 hellweiß 


Bei einer derart großen Farbenpracht ist die Bezeichnung der 
Farben nicht einfach. Da tauchen Farben wie hellweiß auf, die 
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außer in Waschmittelwerbungen eigentlich unsinnig sind. Aber so 
kleinlich wollen wir nicht sein. 


Jede Farbe wird mit einer eindeutigen Nummer bestimmt, nicht 
etwa mit der Bezeichnung. Die Nummern der Standardfarben sind 
somit 1 für blau und 24 für hellgelb. 


DIE RAHMENFARBE 


Nicht nur die Hintergrund- und die Zeichenfarbe kann bestimmt 
werden, auch der Rahmen kann in einer individuellen Farbe 
dargestellt werden. Der Rahmen ist der Bereich des Bildschirms, 
den man mit dem Cursor nicht erreichen kann. Nach dem Ein- 
schalten des Rechners ist der Rahmen nicht zu erkennen, da er in 
der gleichen Farbe wie der Hintergrund dargestellt ist. Mit einem 
Befehl kann man diese Farbe jedoch ändern. Wie immer folgt 
nun zunächst die Beschreibung dieses Befehls. 


Problem: Einstellung der Rahmenfarbe 
Befehl: BORDER farbl,farb2 
Parameter: farbl - Farbnummer 
farb2 - wird nur angegeben, wenn die 


Farbe ständig zwischen ’farb1’ 
und ’farb2’wechseln soll 


Beispiel: BORDER 0 
ändert die aktuelle Rahmenfarbe in schwarz 
BORDER 0,13 
läßt den Rahmen zwischen schwarz und weiß 
blinken 


Bemerkung: Es kann in jeder Betriebsart (MODE 0 bis 
MODE 2) jede der 27 Farben angegeben 
werden! 


Nun kennen Sie bereits den ersten Befehl, um die 27 Farben zu 
begutachten. Warten wir also nicht länger und ändern die 
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Rahmenfarbe in die Zeichenfarbe (Nummer 24) um. Der 
entsprechende Befehl ist 


BORDER 24 


Sie erkennen den Rahmen, der bisher immer verborgen war. 
Diesen Rahmen können Sie nun in allen beliebigen Farben 
erstrahlen lassen. Da wir aber schreibfaul sind, lassen wir ein 
Programm für uns arbeiten. Dieses Programm soll alle Farben 
nacheinander anzeigen. Das folgende Programm übernimmt diese 
Aufgabe: 


10 FOR farbe=0 TO 26 
20 BORDER farbe 

30 IF inkey$="" THEN 30 
40 NEXT farbe 


Was, dieses Programm sagt Ihnen nichts? Dann haben Sie sicher 
das Kapitel der BASIC-Einführung überschlagen und wollten 
dieses angenehmere Kapitel vorziehen. Das hat sicherlich keinen 
Zweck, da hier immer wieder kleinere Programme auftauchen, 
die Ihnen die Funktion der neuen Grafikbefehle verdeutlichen 
sollen. 


Doch nun wieder zu dem Programm. In einer Schleife erzeugen 
wir die einzelnen Farbnummern, die dann in der Zeile 20 
zugewiesen werden. Wie alle anderen Parameter können Sie auch 
diese Farbnummer als Variable angeben. Die Zeile 30 wartet auf 
einen Tastendruck Ihrerseits, damit die nächste Farbe bestimmt 
wird. So können Sie auf dem schnellsten Wege alle Farben Ihres 
CPC6128 begutachten. Wenn Sie nur einen Grünmonitor besitzen, 
werden Sie nur verschiedene Grünabstufungen feststellen. Dies 
soll Sie aber nicht daran hindern, trotzdem die Grafik- 
möglichkeiten zu erforschen. 


Der Befehlsbeschreibung haben Sie entnommen, daß der Bild- 
schirmrahmen blinken kann. Dazu werden zwei Farbnummern 
hinter dem Befehl mit einem Komma getrennt angegeben. Der 
Rahmen wechselt dann ständig zwischen diesen beiden Farben. 
Probieren wir dies nun aus, indem wir die zwei Farben mit dem 
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größten Kontrast verwenden, schwarz und hellweiß. Der Befehl 
dazu ist 


BORDER 0,26 
Es ist sicher nicht empfehlenswert, mit einem derartig blinkenden 
Rahmen weiterzuarbeiten, wenn Sie Ihre Augen schonen möchten. 
Schalten wir dieses Blinken nun wieder ab. 
BORDER 1 
Eine Anwendungsmöglichkeit für das Blinken des Rahmens ist 


die Fehlermeldung in einem Programm. Der Anwender wird so 
optisch eindrucksvoll auf einen Fehler hingewiesen. 


EINSTELLEN DER BLINKGESCHWINDIGKEIT 
Der CPC6128 läßt kaum Wünsche offen. So kann auch die 


Blinkgeschwindigkeit des Rahmens und des Bildschirms eingestellt 
werden. Dazu holen wir folgenden Befehl aus der Trickkiste: 


Problem: Einstellen der Blinkgeschwindigkeit 
Befehl: SPEED INK timel,time2 
Parameter: timel - Zeit für die 1. Farbe 
time2 - Zeit für die 2. Farbe (jeweils 


in Einheiten zu 0.02 Sek.) 


Beispiel: SPEED INK 50,100 
Hält die erste Farbe eine Sekunde und die 
zweite Farbe zwei Sekunden 


Bemerkung: Für ’timel’ und ’time2’ kann ein Wert zwischen 
1 und 255 angegeben werden. Dies entspricht 
einer Verzögerung von 0.02 bis 5.1 Sekunden. 


Mit diesem Befehl bestimmen Sie also den Blinkrythmus des 
Rahmens. Auch diesem Befehl folgt nun ein Beispielprogramm: 


10 INPUT "1. Farbe (0-26): ";farbei 
20 INPUT "Verzoegerung (1-255):";verzi 
30 INPUT "2. Farbe (0-26): ";farbe2 


40 INPUT "Verzoegerung (1-255) ";verz2 
50 BORDER farbe1i,farbe2 
60 SPEED INK verzi,verz2 


Hier werden beide Farben und deren Verzögerung bestimmt. Die 
anschließenden Befehle lassen dann den Rahmen blinken. 
ÄNDERN DER ZEICHENFARBE 

Die Standardfarbe der Zeichen ist wie bereits bekannt hellgelb 


(Nummer 24). Von dieser Farbe können Sie jedoch abweichen. 
Der folgende Befehl unterstützt Sie dabei: 


Problem: Ändern der Zeichenfarbe 

Befehl: PEN #n,farbreg 

Parameter: #n - Nummer des Bildschirm- 
fensters (kann ignoriert 
werden) 

farbreg - Nummer des Farbregisters 

(0-15) 

Beispiel: PEN 1 


Ändert die Zeichenfarbe in die Farbe, die das 
Farbregister 1 enthält 


Bemerkung: Farbregister werden mit dem Befehl INK 
geändert 
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Sicher sind Sie von den Farbregistern verwirrt worden. Wie Sie 
bereits wissen, können nicht alle 27 Farben gleichzeitig verwendet 
werden. Je nach Betriebsart (Befehl MODE) können 2, 4 oder 16 
der 27 Farben eingesetzt werden. Im 40-Zeichenmodus können 
Sie zwischen 4 Farben auswählen. Diese vier Farben werden vom 
Befehl INK bereitgestellt. Schauen wir uns auch diesen Befehl 
zunächst an. 


Problem: Bestimmen der Auswahlfarben 

Befehl: INK farbreg,farbl,farb2 

Parameter: farbreg - Farbregister (0-15) 
farbl - Farbennummer (0-26) 
farb2 - wird angegeben, wenn 


zwischen den Farben ’farb1’ 
und ’farb2’ ständig gewechselt 
werden soll (blinken) 


Beispiel: INK 1,3 
Setzt die Farbe rot in das Farbregister 1 
INK 3,1,9 
läßt die Farbe des Registers 2 zwischen blau 
und grün blinken 


Da wir maximal 16 Farben (MODE 0) auswählen können, gibt es 
auch 16 Farbregister mit den Nummern O0 bis 15. Wollen wir also 
beispielsweise die Zeichenfarbe ändern in rot, so müssen wir die 
Nummer 3 für rot in ein Farbregister setzen. Nehmen wir das 
Register 1, so lautet der Befehl 


INK 1,3 


Nun kann der Befehl ’PEN’ die Zeichenfarbe ändern, indem 
dieses Farbregister angegeben wird. 


PEN 1 
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Dieser Befehl sagt nun: "Ändere die Zeichen in die Farbe, die im 
Farbregister 1 enthalten ist". In dieses Register haben wir zuvor 
die rote Farbe gesetzt. Die Farbregister sind nach dem Einschal- 
ten des CPC bereits mit Farben belegt. Welche Farben dies sind, 
entnehmen Sie der folgenden Tabelle: 


Farbregister MODE 0 MODE 1 MODE 2 
0 1 1 1 
1 24 24 24 
2 20 20 1 
3 6 6 24 
4 26 1 1 
5 0 24 24 
6 2 20 1 
7 8 6 24 
8 10 1 1 
9 12 24 24 
10 14 20 1 
11 16 6 24 
12 18 1 1 
13 22 24 24 
14 1,24 20 1 
15 16,11 6 24 


Da die Farbauswahl bei MODE 1 und MODE 2 begrenzt ist, 
wiederholen sich dementsprechend die Farben. Mit dem Farbre- 
gister O0 bei MODE 1 z.B. werden gleichzeitig die Farbregister 4, 
8 und 12 angesprochen. Dadurch können auch nicht mehr als vier 
Farben in MODE 1 und zwei Farben in MODE 2 ausgewählt 
werden. 
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Der Befehl INK bewirkt auch, daß alle Zeichen, die mit der 
zuvor im Farbregister enthaltenen Farbe ausgegeben wurden, 
gleichzeitig mit geändert werden. Ein Beispiel:Die Standard- 
zeichenfarbe nach dem Einschalten wird dem Farbregister 1 ent- 
nommen. Wenn Sie nach dem Einschalten nun die Farbe im Re- 
gister 1 ändern, so ändert sich gleichzeitig der Text, der in dieser 
Farbe dargestellt ist. Geben Sie z.B. den folgenden Befehl ein: 


INK 1,13 


Alle Zeichen auf dem Bildschirm werden sofort weiß. Schreiben 
Sie jedoch Zeichen mit der Farbe aus Topf 2 auf dem Bild- 
schirm, so hat eine Änderung der Farbe in Register 1 keine 
Auswirkung. 


Die standardmäßige Zuweisung für den Bildschirmhintergrund ist 
das Farbregister 0. Wenn Sie also die Zeichenfarbe aus dem Re- 
gister 0 wählen, so sind Zeichen- und Hintergrundfarbe identisch. 
Die Folge ist, daß die Zeichen nicht mehr erkannt werden 
können. Probieren Sie dies einmal aus: 


PEN O 


Nun verschwindet der Cursor. Sie müssen dies nun rückgängig 
machen, indem Sie den folgenden Befehl "blind" eingeben: 


PEN 1 


Das Farbregister 1 ist also standardmäßig für die Zeichenfarbe 
zuständig. Da ein Register immer für den Hintergrund reserviert 
ist, können wir im MODE 1 drei verschiedene Schriftfarben ver- 
wenden. Das folgende Programm gibt drei Zeilen in verschiede- 
nen Farben aus: 


10 MODE 1 

20 INK 1,12:1NK 2,9:1NK 3,13 
30 PEN 1:PRINT "gelb" 

40 PEN 2:PRINT "gruen! 

50 PEN 3:PRINT "weiss" 
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Wir verwenden für die drei Schriftfarben die Farbregister 1 bis 3. 
Hier setzen wir in Zeile 20 die Farben gelb, grün und weiß in die 
Register 1 bis 3. Anschließend werden die drei Zeilen mit jeweils 
einer anderen Farbe ausgegeben. 


In einem Farbregister können aber auch zwei Farben unterge- 
bracht werden, was dann ein Blinken der Farben verursacht. 
Versetzen Sie zunächst den Rechner in den Einschaltzustand 
(SHIFT-CTRL-ESC). Nun ändern wir die Zeichenfarbe (Register 
1) um in schwarz/weiß. 


INK 1,0,13 


Sofort blinken alle Zeichen auf dem Bildschirm. Auch die 
Zeichen, die Sie nun eingeben, blinken, da sie dem Farbregister 1 
entsprechen. Um die folgende Schrift unabhängig von der bereits 
auf dem Bildschirm enthaltenen Schrift zu machen, ist der fol- 
gende Befehl notwendig: 


PEN 2 


Von nun an kommt die Zeichenfarbe aus dem Register 2. Das 
Blinken können Sie abschalten, indem Sie die Farbe 24 ins Re- 
gister 1 setzen. 


INK 1,24 
Es folgt wieder ein kleines Demonstrationsprogramm: 


10 MODE 1 

20 INK 2,1,26 

30 INK 3,26,1 

40 PEN 2:PRINT "HIN UND HER" 
50 PEN 3:PRINT "HIN UND HER" 
60 PEN 1 
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ÄNDERN DER HINTERGRUNDFARBE 


Nun haben wir bereits die Rahmen- und die Zeichenfarbe ge- 
ändert. Ein weiterer Befehl kann auch die Farbe des Hintergrun- 
des ändern: 


Problem: Ändern der Hintergrundfarbe 
Befehl: PAPER #n,farbreg 
Parameter: #n - Nummer des Bildschirm- 
fensters (kann ignoriert 
werden) 
farbreg - Farbregister (0-15) 
Beispiel: PAPER 2 


Ändert die Hintergrundfarbe um in die Farbe 
aus Farbregister 2 


Bemerkung: Um den gesamten Hintergrund zu ändern, muß 
dem Befehl PAPER ein CLS folgen. 


Der Befehl PAPER ähnelt dem Befehl PEN insoweit, als bei bei- 
den ein Register angegeben werden muß, das die gewünschte 
Farbe enthält. Die Standardzuweisung für den Hintergrund ist 
Farbregister 0. Auch hier dürfen wir nicht das Farbregister 1 
angeben, da dieses die Farbe der Zeichen enthält. Sie würden 
dann wieder die Schrift unsichtbar machen. 


Doch setzen wir nun einmal den Befehl PAPER ein. Wir wollen 
den Hintergund hellrot erscheinen lassen. Diese Farbe ist 
standardmäßig im Register 3 enthalten. Geben Sie also den 
folgenden Befehl ein: 


PAPER 3 
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Nun erstrahlt aber nicht etwa der gesamte Hintergrund des Bild- 
schirms hellrot, sondern nur der Hintergrund der nachfolgenden 
Zeichen. Um den gesamten Hintergrund zu ändern, müssen Sie 
nach dem Befehl PAPER noch den Bildschirm löschen (CLS). 


Auch der Hintergrund kann zum Blinken gebracht werden, wenn 
beim PAPER-Befehl ein Farbregister angegeben wird, das zwei 
Farben enthält. Lassen Sie uns nun den Bildschirmhintergund 
zwischen schwarz und weiß blinken, nachdem Sie den Rechner 
wieder in den Einschaltzustand versetzt haben (SHIFT-CTRL- 
ESC). Die folgenden Befehle müssen dazu nacheinander 
eingegeben werden: 


INK 3,0,13 

PAPER 3 

CLS 
Die Frequenz dieses Blinkens können Sie mit dem bereits 
erwähnten Befehl ’SPEED INK’ ändern. Wollen Sie z.B. jede 
Sekunde die Farbe wechseln lassen, so geben Sie den Befehl 


SPEED INK 50,50 


ein. Erinnern Sie sich: Die Werte in diesem Befehl stellen Ein- 
heiten von 0.02 Sekunden dar (50 x 0.02 = 1 Sekunde). 


Zum Abschluß wieder ein kleines, eindrucksvolles Programm- 
beispiel: 


10 MODE 1 

20 INK 2,0,13 

30 INK 3,13,0 

40 SPEED INK 50,50 

50 PEN 2 

60 PAPER 3 

70 CLS 

80 PRINT "POSITIV UND NEGATIV" 
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HOCHAUFLÖSENDE GRAFIK 


Wie Ihnen bereits bekannt ist, können Sie zwischen drei ver- 
schiedenen Grafikauflösungen mit unterschiedlicher Farbenanzahl 
wählen. Zum Zeichnen von Figuren gibt es einige Befehle, die 
ausschließlich am Beispiel der hochauflösenden Grafik vorgestellt 
werden. 


Erinnern Sie sich: Die hochauflösende Grafik besteht aus 640 x 
200 Bildpunkten und zwei Farben, einer Hintergrund- und einer 
Zeichenfarbe. Damit jeder Punkt angesprochen werden kann, 
muß man sich den Bildschirm als Koordinatensystem vorstellen. 
Ähnlich wie beim bereits bekannten Befehl LOCATE, der den 
Cursor an eine beliebige Position bringen kann, wird auch bei 
den Garfikbefehlen eine Position bestimmt, nämlich mit zwei 
Werten. Der erste Wert bestimmt die Position auf der 
waagerechten Achse (X-Achse) des Bildschirms von links nach 
rechts orientiert. Der zweite Wert entspricht der Position auf der 
senkrechten Achse (Y-Achse) von unten nach oben zählend. Da 
das Auflösungsverhältnis von 640 x 200 Punkten nicht dem des 
Bildschirms entspricht, erstreckt sich der Y-Wert nicht von 0 - 
199, sondern von 0 - 399, wobei zwei Y-Werte die gleiche 
Position bestimmen (0 und 1, 2 und 3, ...). Die vier Eckpunkte 
haben folgende Koordinaten: 


639,399 
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Wenn Sie sich mit diesem System vertraut gemacht haben, können 
wir uns mit den ersten Befehlen zur Erzeugung der Grafik 
beschäftigen. 


ZEICHNEN VON PUNKTEN 


Problem: Setzen eines Punktes 

Befehl: PLOT x,y 

Parameter: x- X-Achsen-Position (0-639) 
y- Y-Achsen-Position (0-399) 

Beispiel: PLOT 0,0 


Setzt einen Grafikpunkt in die untere, linke 
Ecke des Bildschirms 


Die Grafikbefehle sind allgemein gut verständlich, wenn man das 
K.oordinatensystem beherrscht. Das Setzen einzelner Punkte wird 
aber langweilig, wenn man nicht weitere Befehle einsetzt. So ist 
es sehr interessant, Punkte innerhalb von Schleifen zu erzeugen. 
Sehr einfach ist es z.B., Linien zu erzeugen. Zwar gibt es dafür 
einen speziellen Befehl, doch zur Übung des Befehls PLOT ist 
diese Anwendung trotzdem interessant. 


Versuchen Sie nun einmal, eine senkrechte Linie am äußersten 
linken Bildschirmrand von unten nach oben zu zeichnen. Das fol- 
gende Programm erfüllt diese Aufgabe: 


10 MODE 2 

20 FOR Y=0 TO 399 
30 PLOT 0,Y 

40 NEXT Y 


Dieses Programm ist recht leicht zu verstehen. Lassen Sie uns den 
Schwierigkeitsgrad ein wenig erhöhen. Schreiben Sie nun ein 
Programm, das einen Rahmen um den gesamten Bildschirm 
erzeugt. Hier die Lösung: 
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10 MODE 2 

20 FOR Y=0 TO 399 

30 PLOT 0,Y:PLOT 639,Y 
40 NEXT Y 

50 FOR X=0 TO 639 

60 PLOT X,0:PLOT X,639 
70 NEXT X 


Sie haben doch nicht etwa vier Schleifen benötigt? Die beiden 
parallelen Linien können in einer Schleife gleichzeitig gezogen 
werden! Doch dies sind kleine Tricks, die die Programmier- 
erfahrung bald mit sich bringt. 


Das Zeichnen der senkrechten Linien kann erheblich beschleunigt 
werden. Erinnern Sie sich, jeweils zwei aufeinanderfolgende Y- 
Werte bestimmen den gleichen Punkt! Wir können die Y-Schleife 
also halbieren. Dazu erhöhen wir das Schleifeninkrement (STEP- 
Parameter) auf 2. Ändern Sie dazu die folgende Zeile: 


20 FOR Y=0 TO 399 STEP 2 


Beachten Sie nach dem erneuten Start des Programms die 
Beschleunigung. Denken Sie also immer daran, ob nicht das 
Zeichnen der Y-Achse beschleunigt werden kann. 


ZEICHNEN EINES KREISES 


Da der CPC6128 keinen Befehl zum Zeichnen eines Kreises 
bereithält, müssen wir uns anders helfen. Jeder einzelne Punkt 
muß berechnet und gesetzt werden. Dabei benutzen wir die fol- 
genden Formeln: 


x=rx* cos(a) 
y=rk*k sinl(a) 


Für ’r’ muß der Radius und für ’a’ der Winkel eingesetzt werden. 
In Verbindung mit einer Schleife, die den Winkel von 1 bis 360 
Grad hochzählt, kann jeder einzelne Punkt des Kreises erzeugt 
werden. Beachten Sie zunächst das folgende Programm: 
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10 MODE 2 

20 x=320:y=200:r=100 

30 DEG 

40 FOR a=1 TO 360 

50 PLOT x+r*COS(a),y+r*SIN(a) 
60 NEXT a 


In der Zeile 20 wird der Mittelpunkt und der Radius des 
gewünschten Kreises bestimmt. Der Befehl DEG besagt, daß alle 
folgenden Winkelberechnungen in Neugrad durchzuführen sind. 
Der alternative Befehl dazu ist RAD und rechnet im Bogenmaß 
(Altgrad). Dabei gilt ’90 Altgrad = 100 Neugrad’. Die folgende 
Zeile stellt den Schleifenanfang dar. Hier soll ein ganzer Kreis 
(360 Grad) erzeugt werden. Wenn Sie die Anfangs- und Endwerte 
ändern, werden Kreisausschnitte erzeugt. In der Zeile 50 ist die 
eigentliche Formel untergebracht. Zu der errechneten Punktposi- 
tion muß noch der Mittelpunkt (x und y) addiert werden. 
Anschließend folgt das Ende der Schleife. 


Mit dieser Routine können Sie nun Kreise erzeugen, auch" wenn 
Sie den mathematischen Zusammenhang nicht verstanden haben. 
Wenn Sie auch noch Ellipsen erzeugen möchten, so kann ich 
Ihnen hier nicht weiterhelfen. Vielleicht holen Sie Ihre alten 
Schulbücher aus dem Schrank und geben sich selbst etwas Nach- 
hilfe in Geometrie. Doch Spass beiseite - für viele schöne 
Grafiken sind mathematische Algorithmen unverzichtbar. 
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ZEICHNEN VON GERADEN 


Problem: Zeichnen einer Geraden 
Befehl: DRAW x, y 
Beispiel: DRAW 639,0 


Zeichnet eine Gerade zwischen der Position des 
Grafikcursors und der angegebenen x/y - 
Position 


Die einzige Frage, die dieser Befehl aufkommen läßt, ist der 
Grafikcurssor. Zu Anfang, also nach dem Einschalten des 
Rechners, steht dieser Cursor auf °0,0°. Jeder anschließedne 
Grafikbefehl aktualisiert diesen Cursor. Setzt man also einen 
Punkt auf ’100,200°, so steht auch der Grafikcursor auf diesem 
Punkt. Ein anschließender DRAW-Befehl zeichnet die Gerade 
von diesem Punkt ausgehend. Der letzte Punkt dieser Geraden ist 
wiederum die neue Position des Grafikcursors. 


Es besteht jedoch die Möglichkeit, den Grafikcursor an eine 
beliebige andere Stelle zu setzen. Der folgende Befehl hat diese 
Aufgabe: 


Problem: Setzen des Grafikcursors 

Befehl: MOVE x,y 

Beispiel: MOVE 200,250 
setzt den Grafikcursor auf die Position 
’200,250° 


Sicher haben Sie bemerkt, daß in den letzten beiden Befehls- 
beschreibungen die Parameter nicht erwähnt wurden. Dies ist 
reine Absicht, da wohl mittlerweile jeder weiß, was mit ’x,y’ 
gemeint ist. 
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Zeichnen wir nun eine Senkrechte am äußersten linken Bild- 
schirmrand, wie wir es zuvor mit dem Befehl PLOT realisiert 
haben. Dazu benötigen wir nur zwei Befehle, nach dem Ein- 
schalten sogar nur einen: 


10 MODE 2 
20 MOVE 0,0 
30 DRAW 0,399 


Der Befehl ’MOVE 0,0’ muß nach dem Einschalten des Rechners 
nicht eingegeben werden, da dann der Grafikcursor ohnehin auf 
dieser Position steht. 


Nun soll auch der Rahmen, der beim Befehl PLOT erzeugt 
worden ist, mit DRAW gezeichnet werden.: 


10 MODE 2 

20 MOVE 0,0: REM Ecke unten links 

30 DRAW 0,399: REM zur Ecke oben links 
40 DRAW 639,399: REM zur Ecke oben rechts 
50 DRAW 0,639: REM zur Ecke unten rechts 


Dieses Programm erklärt sich selbst. Das Verbinden einzelner 
Punkte ist nun kein Problem mehr. Interessant wird das Zeichnen 
von Linien in Verbindung mit Schleifen. Überzeugen Sie sich 
selbst: 


10 MODE 2 

20 FOR i=0 TO 399 STEP 10 
30 MOVE 399, i 

40 DRAW 0,399-i 

50 NEXT i 


Ein einfaches Program mit großer Wirkung. Weil’s so schön war, 
folgt noch ein weiteres: 


10 MODE 2 

20 MOVE 0,0 

30 FOR i=0 TO 399 STEP 10 
40 DRAW 399, i 

50 DRAW 399-1,399 

60 DRAW 0,399-i 

70 DRAW i,0 

80 NEXT i 


Ist es nicht bewundernswert, wenn derartige Bilder auf dem 
Bildschirm entstehen, noch dazu wenn sie aus Ihrer eigenen Feder 
stammen? Vielleicht versuchen Sie sich auch einmal an derartigen 
Fantasiegrafiken. Es macht sehr viel Spaß, auch wenn es nicht 
auf Anhieb klappt. Im Vertrauen, ich habe mir an diesem Bild 
auch den Kopf zerbrochen. Die Schwierigkeit ist, die Bilder, die 
man sich vorstellt, in das Koordinatensystsem umzurechnen, also 
den Algorithmus zu bilden. Das artet zu echten Denksportauf- 
gaben aus. 


RELATIVES ZEICHNEN 


Zum Abschluß dieses Kapitels lernen Sie eine Variante der bisher 
beschriebenen Befehle kennen. Bei den Befehlen PLOT, MOVE 
war der Grafikcursor bisher nicht relevant, da wir immer einen 
absoluten Punkt bestimmt haben. Fügen wir jedoch den Befehlen 
den Buchstaben ’R’ an, so hat dieser eine andere Wirkung. Die 
Befehle sehen dann wie folgt aus: 


PLOTR xX,y 
DRAWR xX,Yy 
MOVER xX,Y 
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Bei diesen Befehlen wird keine absolute x/y-Koordinate 
angegeben, sondern ein relativer Wert. Kurzum wird zur Er- 
mittlung der endgültigen Koordinate zur X-Position des 
Grafikcursors der mit dem Befehl angegebene relative X-Wert 
addiert. Das gleiche gilt für die Y-Koordinate. Dazu ein Beispiel: 
Der Grafikcursor befindet sich an der Position ’200,100°. Der 
Befehl ’PLOTR 50,50’ setzt nun einen Punkt an die Position 
250,150”. 


Das folgende Beispiel soll hier etwas mehr Licht hineinbringen. 
Es soll ein Quadrat von 10 mal 10 Punkten gezeichnet werden. 
Die Koordinaten der oberen linken Ecke befinden sich in den 
Variablen ’x’ und ’y’. 


10 MODE 2 

20 x=200:y=100 

30 MOVE x,y 

40 DRAWR 10,0: REM 10 nach rechts 
50 DRAWR 0,10: REM 10 nach oben 
60 DRAWR -10,0: REM 10 nach Links 
70 DRAWR 0,-10: REM 10 nach unten 


Sie haben bemerkt, daß auch negative Zahlen angegeben werden 
können. Dies ist notwendig, um auch Positionen links und unter- 
halb der Grafikposition relativ anzusprechen. 


Dies ist der Abschluß der Grafikkapitels für Einsteiger. Weitere 
Grafikbefehle finden Sie in Ihrem Handbuch oder in weiteren 
DATA-BECKER-BÜCHERN zum CPC6128. 


KAPITEL 7: 
TONERZEUGUNG 


Ein Computer eignet sich sehr gut zur Erzeugung von Tönen. Der 
Prozessor, das eigentliche Arbeitspferd im Computer, wird von 
einem Taktgenerator angesteuert. Dieser Generator erzeugt je 
nach Rechner ca. 1-4 MHz (Millionen Takte pro Sekunde). Der 
einfachste Weg ist, diesen Takt auf einen Lautsprecher zu legen. 
Da die dabei entstehenden Töne vom menschlichen Gehör nicht 
mehr wahrgenommen werden können, muß die Taktfrequenz 
erheblich tiefer sein. Dies wird erreicht, indem die Taktfrequenz 
vor Ausgabe auf den Lautsprecher geteilt wird. Die dabei 
entstehenden Frequenzen werden dann als Töne wahrgenommen. 


Dies war die erste Generation der Tonerzeugung mit dem 
Computer. Da diese Töne, vergleichbar mit den Wecktönen einer 
Armbanduhr, nicht zufriedenstellend waren, wurde die 
Tonerzeugung in Heimcomputern ständig weiterentwickelt. Da 
Resultat ist, daß viele Homecomputer mit sogenanten 
Synthesizern ausgerüstet sind, die auf einem Chip untergebracht 
sind. Die damit erzeugten Töne sind denen der "natürlichen" 
Musikinstrumente verblüffend ähnlich. 


Den tonerzeugenden Chip im CPC6128 kann man nicht als 
Synthesizer im eigentlichen Sinn bezeichnen. Ihm fehlen wichtige 
Eigenschaften wie verschiedene Wellenformen (Sinus, Rechteck 
etc.) und die klangbeeinflussenden Filter. Auch ist das eigentliche 
Prinzip des Synthesizers, die Frequenz (Höhe) der Töne von einer 
Spannung abhängig zu machen, nicht gegeben. Der Tongenerator 
im CPC6128 macht die Frequenz von einem Teilungsfaktor 
abhängig. 


Der Tongenerator des CPC6128 verfügt über drei Stimmen. Es 
können also drei Töne gleichzeitig erklingen. Weiterhin ist ein 
Rauschgenerator vorhanden, mit dem neben den Tönen auch 
Geräusche erzeugt werden können. 


Tonerzeugung u nd: 


Alles, was dem Tongenerator entlockt wird, erklingt über den im 
CPC eingebauten Lautsprecher. Der Ton eines eventuell 
angeschlossenen Fernsehers muß deshalb ausgeschaltet werden. 
Die Lautstärke das eingebauten Lautsprechers kann rechts am 
CPC eingestellt werden. 


Wer seine eigenen Kompositionen jedoch in Stereo genießen 
möchte, dem bietet sich die Möglichkeit, den Tonausgang des 
CPC einer Stereoanlage zuzuführen. Dazu befindet sich hinten 
links am CPC eine Ausgangsbuchse (I/O). Hier muß ein Kabel 
angefertigt werden, falls dies nicht im Fachhandel erhältlich ist. 
Der Ausgang des CPC muß mit dem Eingang Ihres Verstärkers 
verbunden werden, an dem normalerweise ein Kassttendeck oder 
ein Tuner angeschlossen wird. Auch die oft vorhandene AUX- 
Buchse kann verwendet werden. 


Im folgenden Kapitel lernen Sie die wichtigsten BASIC-Befehle 
zur Tonerzeugung kennen. Die gesamte, komplexe Tonerzeugung 
kann an dieser Stelle nicht erläutert werden. Aufbauende 
Informationen finden Sie in Ihrem Handbuch oder in anderen 
DATA BECKER BÜCHERN zum CPC. 


DER SOUND-BEFEHL 


Problem: Bestimmen der Toneigenschaften 
Befehl: SOUND a, b, c,d,e, f, g 
Parameter: Kanalstatus (in diesem Kapitel immer 1) 


a - 

b- Teiler, bestimmt die Frequenz (0-4095) 
Frequenz = 125000/ Teiler 

c - Dauer des Tons (-32768 bis +32767, in 
Einheiten zu 0.01 Sekunden) 

d- Lautstärke (0-15) 

e- Hüllkurve für die Lautstärke (0-15) 

f- Hüllkurve für den Ton (0-15) 

& -  Rauschcharakter (0-15) 
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Beispiel: SOUND 1,1000,100,7,0,0,0 
Erzeugt einen Ton von 125 Herz 1 Sekunde 
lang mit der Lautstärke 7 


Da dieser Befehl sehr umfangreich ist, werden wir nicht alle 
Parameter einsetzen. Vor allem die Programmierung der 
Hüllkurven würde den Rahmen dieses Buches sprengen. Die 
Kenntnisse, die Sie in diesem Kapitel erwerben, bieten jedoch 
eine gute Grundlage zur Vertiefung mit Hilfe Ihres Handbuches. 


DIE TONHÖHE 


Die für uns interessanten Parameter sollen zunächst näher 
beschrieben werden. Der erste Parameter ’a’ gibt einen 
Kanalstatus an, der u.a. gleichzeitiges Spielen der drei Stimmen 
ermöglicht. In unseren folgenden Beispielen verwenden wir nur 
eine Stimme, und zwar die Stimme 1. 


Der nachfolgende Parameter ’b’ bestimmt die Tonhöhe. Hier wird 
ein Teiler angegeben, durch den die Grundfrequenz von 125000 
Herz geteilt wird. Da der Teiler Werte zwischen 0 und 4095 
annehmen kann, sind Frequenzen zwischen 30 und 125000 Herz 
möglich. Das folgende Programm läßt einen Ton von 30000 auf 
300 Herz abschwellen. Sie können sich dann die verschiedenen 
Frequenzen besser vorstellen. 


10 FOR teiler=4.1 TO 416 STEP 0.1 
20 PRINT INTC125000/teiler) 

30 SOUND 1,teiler,1,7,0,0,0 

40 NEXT teiler 


Die Funktion ’INT’ schneidet von dem Wert in den 
nachfolgenden Klammern die Nachkommastellen ab, da diese in 
unserem Beispiel nicht benötigt werden. Sie sehen, daß wie bei 
allen Befehlen auch beim Befehl SOUND alle Parameter mit 
Variablen besetzt werden können. 
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Die Veränderung der Tonhöhe in einer Schleife ermöglicht 
zahlreiche Effekte. So kann z.B. leicht eine Sirene simuliert 
werden: 


10 FOR teiler=120 TO 200 

20 SOUND 1,teiler,2,7,0,0,0 

30 NEXT teiler 

40 FOR teiler=200 TO 120 STEP -1 
50 SOUND 1,teiler,2,7,0,0,0 

60 NEXT teiler 

70 GOTO 10 


Diese Sirene, die an amerikanische Polizeiwagen erinnert, kann 
mit der Taste ’ESC’ abgebrochen werden (zweimal drücken). Für 
alle, die noch ein wenig mit der Sirene spielen möchten, bietet 
sich die folgende Variante des Programms an: 


5 INPUT "Anfangsteiler";a 

6 INPUT "Endteiler ":b 

7 INPUT "Tempo (1-10) ";t 
10 FOR teiler=a TO b 

20 SOUND 1,teiler,t,7,0,0,0 
30 NEXT teiler 

40 FOR teiler=b TO a STEP -1 
50 SOUND 1,teiler,t,7,0,0,0 
60 NEXT teiler 

70 GOTO 10 


Hier werden die wichtigsten Eigenschaften der gewünschten 
Sirene zunächst in Variablen festgehalten, die im dann folgenden 
Programm eingesetzt werden. Auch dieses Programm beenden Sie 
mit ’ESC’. 


MUSIK AUS FREQUENZEN 


Musikinstrumente erzeugen die Töne nicht stufenlos. Erst eine 
bestimmte Abstufung der Töne sind für das menschliche Gehör 
angenehm. Zum weiteren Verständnis müssen einge Grundlagen 
erläutert werden.InlEine sogenannte Tonleiter besteht aus 12 
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Tönen, wie Sie der folgenden Übersicht einer Klaviatur 


entnehmen können. 
# 
Dis 


Eine Klaviatur besteht aus mehreren solcher Abschnitte. Diese 
Tonfolgen nennt man Oktaven. Die erste Oktave umfaßt die 
tiefen Töne, die letzte Oktave die höchsten Töne. 


In welche Stufen sind die einzelnen Töne nun geteilt? Die 
Berechnung der Frequenzen der einzelnen Töne geht international 
vom Kammerton ’A’ der mittleren Oktave aus. Dieser Ton hat 
440 Herz. Lassen wir diesen Ton nun einmal erklingen. Welcher 
Teiler muß für diese Frequenz eingesetzt werden? Erinnern Sie 
sich: Der Teiler wird mit der Formel 
’TEILER=125000/FREQUENZ’ ermittelt. Bei 440 Herz ergibt 
dies 284.090909. Der Teiler muß jedoch stets ganzzahlig, also 
ohne Nachkommastellen, sein. Dadurch ergibt sich eine 
geringfügige Frequenzabweichung, die jedoch nur den 
Spezialisten auffallen wird. Erzeugen Sie nun das mittlere ’A’. 


SOUND 1,284,100,7,0,0,0 


Wie werden nun die anderen Töne aus dieser Grundfrequenz 
berechnet? Die entsprechende Formel ist wie folgt aufgebaut: 


FREQUENZ = 440 * (21(OKTAVE+(N-10)/12)) 


OKTAVE - von -3 bis 4 
N - Position des Tons in der Ton- 
leiter ('C'=]1, '!A'=12) 





Der mathematische Ursprung der Formel soll an dieser Stelle 
nebensächlich sein. Wichtig ist es, daß Sie diese Formel 
einzusetzen wissen. Wenn z.B. der Ton °C’ der untersten Oktave 
erzeugt werden soll, so errechnet sich die Frequenz wie folgt: 


440 * (21(-3+(1-10)/12)) = 32.7031957 Herz 


Zur Erzeugung dieses Tons muß noch der Teiler ermittelt 
werden. Die Formel dazu kennen Sie bereits. 


125000/32.7031957 = 3822.25643 


Der Teiler 3822 also erzeugt das °C’ der untersten Oktave. Auf 
diese Weise läßt sich wieder ein Programm zum Spielen der 
Tonleiter erzeugen: 


10 INPUT "Oktave (-3 bis 4)";oktave 

20 FOR ton=1 TO 12 

30 frequenz=440*(2t(oktave+(ton-10)/12)) 
40 teiler=INT(125000/frequenz) 

50 SOUND 1,teiler,20,7,0,0,0 

60 NEXT ton 


Es wird immer interessanter, mit dem Tongenerator zu 
experimentieren. Nun werden wir diesem Kapitel die Krone 
aufsetzen. Das folgende Programm "KLAVIER FÜR 
EINSTEIGER" verwandelt Ihren CPC in ein Musikinstrument. 


174 Tonerzeugung 


10 MODE 0 

20 DIM ton(255) 

30 ton$="a2W3ERSTEY7UIIOOP" 
40 FOR i=1 TO 17 


50 index=ASC(MID$(ton$,i,1)) 
60 ton(C index)=i 

70 NEXT i 

80 CLS 

90 PRINT " KLAVIER FUER" 
100 PRINT " EINSTEIGER" 

110 LOCATE 1,5 

120 PRINT "23 567 90“ 
130 PRINT 

140 PRINT "QAWERTYUIOP" 


150 
160 
170 
180 
190 
200 
210 


a$=INKEY$:IF a$="" THEN 150 
IF ton(lasc(a$))=0 THEN 150 
ton=ton(asc(a$)) 
frequenz=440*(21(ton/12)) 
teiler=INT(125000/frequenz) 
SOUND 1,teiler,30,7,0,0,0 
GOTO 150 


Ein kleines Programm mit großer Wirkung! Vielleicht nehmen Sie 
noch einige Verbesserungen vor, nachdem Sie die Arbeitsweise 
durchschaut haben. 


rz 17 
RAUSCHEN 


Bei der Erklärung des SOUND-Befehls haben Sie bereits von 
einem Parameter gehört, mit dem Rauschen erzeugt werden kann. 
Dieser steht an letzter Stelle und enthält den Wert 1 bis 15, wenn 
das Rauschen aktiviert werden soll. Mit einem SOUND-Befehl 
können also sowohl Töne als auch Rauschen erzeugt werden, je 
nach Wert der Parameter ’b’ und ’g’. Die folgende Übersicht soll 
hier Klarheit schaffen: 


SOUND a,b,c,d,e,f,9 


es 1 e Trnen 
0 ” 
0 





0 
1-4095 

0 1-15 
1-4095} 1-15 


Sie sehen, daß Töne und Rauschen gleichzeitig erzeugt werden 
können und zwar mit einem SOUND-Befehl. Das Rauschen kann 
durch Veränderung des Parameters zwischen 1 (helles Rauschen) 
und 15 (dumpfes Rauschen) eingestellt werden. Das folgende 
Programm macht dies deutlich: 


10 FOR r=1 TO 15 
20 SOUND 1,0,20,7,0,0,1 
30 NEXT r 


Das unterschiedliche Rauschen ist unüberhörbar. Der Ton wurde 
ausgeschaltet, indem der zweite Parameter auf Null gesetzt wurde. 


Mit Hilfe des Rauschens können nun verschiedene Effekte 
erzeugt werden. Geräusche wie z.B. Wind, Schüsse, Explosionen 
werden mit einem Rauschgenerator erzeugt. Das folgende 
Programm soll eine Lokomotive nachahmen: 
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10 SOUND 1,0,10,7,0,0,15 
20 SOUND 1,0,5,7,0,0,0 
30 GOTO 10 


Diese Lokomotive können Sie mit der Taste ’ESC’ anhalten. Dem 
Rauschen (0.1 Sek.) folgt eine Pause (0.05 Sekunden). Erinnern 
Sie sich Die Tondauer wird mit dem dritten Parameter in 
Einheiten von 0.01 Sekunden bestimmt. 


Das letzte Beispiel soll einen Schuss erzeugen. Dazu wird in einer 
Schleife die Lautstärke vermindert. 


10 a$=INKEY$:IF a$="" THEN 10 
20 FOR v=7 TO 1 STEP -1 

30 SOUND 1,0,10,v,0,0,15 
40 NEXT v 

50 GOTO 10 


Die Schüsse werden durch einen Tastendruck ausgelöst. Das 
Programm kann mit der Taste ’ESC’ abgebrochen werden. 
Vielleicht versuchen Sie sich auch einmal als Geräuschemacher. 
Die dafür erforderlichen BASIC-Befehle sind für Sie nun kein 
Problem mehr. 
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KAPITEL 8: 
DAS DISKETTENLAUFWERK 


Wie Sie sicher nicht übersehen haben, ist Ihr CPC6128 mit einem 
eingebauten Diskettenlaufwerk versehen. Dieses Gerät soll Ihre 
Programme und Daten aufzeichnen. Das einfache Speichern und 
Laden von Programmen haben Sie bereits gelernt. Im Adressen- 
programm haben Sie auch schon Daten auf dem 
Diskettenlaufwerk gesichert. Dies alles soll in diesem Kapitel 
nicht mehr behandelt werden. Andere besondere Fähigkeiten 
werden hier erläutert und mit Beispielen demonstriert. 


DIE DISKETTEN 


Die von SCHNEIDER gelieferten Diskettenlaufwerke 
unterscheiden sich in einem wesentlichen Punkt von den 
herkömmlichen Laufwerken, der Diskettengröße. Nach 
jahrelangem Einsatz von 5 1/4 Zoll-Disketten scheinen die 3 1/2 
Zoll-Disketten einen neuen Standard auf dem Computermarkt zu 
setzen. Computer der neuen Generation (AMIGA, 520ST, 
MacIntosh) sind mit diesem Diskettenformat ausgerüstet. 
SCHNEIDER-Laufwerke hingegen haben ein Diskettenformat, 
das bei keinem anderen Gerät zu finden ist: 3 Zoll-Format. 


Die Disketten des CPC können haben einen Vorteil gegenüber 
dem 3 1/2 Zoll-Disketten; sie können von beiden Seiten bespielt, 
also umgedreht werden. Somit haben Sie auf einer Diskette 2 mal 
180 KByte Speicherkapazität zur Verfügung. Die Diskette ist 
physikalisch eingeteilt in 40 Spuren. Jede dieser Spuren ist 
wiederum in 9 Sektoren aufgeteilt. Auf jedem dieser 360 Sektoren 
können 512 Byte gespeichert werden. Daraus resultiert die 
Gesamtkapazität von 180 KByte. Doch keine Angst, diese 
physikalische Struktur hat für Sie keine Bedeutung. Das Betriebs- 
system, genauer das DOS (Disk-Operating-System) nimmt Ihnen 
die Arbeit ab und organisiert den Diskettenaufbau. 
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DAS FORMATIEREN 


Bevor Sie die Diskette als Datenspeicher einsetzen können, 
müssen sie formatiert werden. Beim Formatieren werden die 
Sektoren auf der Diskette zur Aufnahme der Daten angelegt. 
Zunächst eine exakte Vorgehensweise zum Formatieren: 


1. 


2% 


6. 
Ts 
8 

9. 
10. 
11. 


Legen Sie die Seite A der mitgelieferten Systemdiskette 
(CP/M) in das Laufwerk. 

Rufen Sie das CP/M-Betriebssystem mit dem Befehl |CPM 
auf 

(Das Zeichen | erreichen Sie mit SHIFT und @). 

Laden Sie das Programm zum Formatieren von Diskette 
durch Eingabe von D/SCKIT3. 

Drücken Sie die Funktionstaste f7 zur Wahl der 
Formatierung. 

Drücken Sie die Funktionstaste f6 zur Wahl des Daten- 
formates. 

Legen Sie die zu Formatierende Diskette ein. 

Drücken Sie die Y-Taste. 

Drücken Sie nach Beendigung des Formatierens irgendeine 
Taste. 

Legen Sie wieder die Systemdiskette ein. 

Verlassen Sie das Hilfsprogramm mit Funktionstaste /0. 
Versetzen Sie den Rechner in den Einschatzustand 
(SHIFT-CONTROL-ESC) 


Dies ist eine ziemlich umfangreiche Prozedur, die jedoch uner- 
läßlich ist. Nach erfolgreichem Ablauf besitzen Sie eine for- 
matierte Diskettenseite, die Sie zur Datenspeicherung nutzen 
können. 
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DATEINAMEN 


Bei der Vergabe von Namen für Programme und Dateien auf der 
Diskette müssen Sie folgendes beachten: 


Programmnamen dürfen nur 8 Zeichen umfassen. 
Weitere drei Zeichen stehen zur Verfügung, wenn Sie den 
Dateinamen von diesen drei Zeichen mit einem Punkt 
trennen. 
Normal abgespeicherte BASIC-Programme erhalten automatisch 
den Zusatz .BAS, wenn Sie keinen eigenen Namenszusatz 
angeben. Ein Beispiel: 
SAVE "TEST" Das Programm wird unter dem Namen 
TEST.BAS auf der Diskette geführt. 


SAVE "TEST.DEM" Das Programm wird unter dem Namen 
TEST.DEM auf der Diskette geführt. 


DAS INHALTSVERZEICHNIS 


Geben Sie einige BASIC-Zeilen ein und speichern Sie dies als 
Programm mit dem Namen TESTCAT. 


SAVE "TESTCAT" 


Das Inhaltsverzeichnis der Diskette wird bei Bedarf mit dem 
Befehl CAT auf dem Bildschirm ausgegeben. 


CAT 
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Geben Sie diesen Befehl nun ein, so zeigt sich das Verzeichnis 
wie folgt: 


Drive A: user O 
TESTCAT .BAS 1K 
177K free 


Sie erkennen, daß Ihr Programm nicht größer als 1 KByte ist und 
daß Sie noch Platz für 177 KByte auf der Diskette haben. 


Zum Laden des Programms geben Sie den folgenden Befehl ein: 


LOAD "TESTCAT" 
oder 
LOAD "TESTCAT. BAS" 


Im folgenden werden weitere Möglichkeiten zur Programmver- 
waltung beschrieben. 


PROGRAMME ALS ASCII-DATEIEN 


Im bisherigen Verlauf des Buches tauchten die Begriffe "Datei" 
und "Programm" auf, die stets auseinandergehalten werden 
müssen. Wo liegt nun der Unterschied? Programme liegen sowohl 
im Speicher als auch auf der Diskette oder anderen 
Speichermedien in komprimierter Form vor. So werden z.B. 
Befehle codiert abgelegt, da sonst z.B. der Befehl "PRINT" fünf 
Speicherstellen belegen würde. Um dies zu vermeiden, besitzt 
jeder Befehl einen Code (0-255), der nur eine Speicherstelle 
belegt. Dies ist z.B. mit den Zeichen des CPC zu vergleichen, die 
intern ebenfalls codiert werden (’ASC’ und ’CHR$’). 


Der CPC bietet eine Möglichkeit an, Programme in 
"ausgeschriebener" Form, also in Klartext auf die Diskette zu 
speichern. Zu diesem Befehl folgt nun zunächst die Beschreibung: 
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Problem: Speichern von Programmen in Klartext 
Befehl: SAVE "name",A 

Parameter: name- Programmname 
Beispiel: SAVE "Adressen",A 


Speichert das Programm mit dem Namen 
"Adressen" in Klartext 


Bemerkung: Das abgespeicherte Programm kann als Datei, 
nicht jedoch als lauffähiges Programm 
eingelesen 
werden. 


Sicher haben Sie keine Vorstellung davon, wozu diese Speicher- 
methode genutzt werden kann. Erst beim Einsatz einer Textver- 
arbeitung werden Sie diesen Vorteil zu schätzen wissen. Als 
ASCII-Datei abgespeicherte Programme können von einer 
Textverarbeitung eingelesen und verarbeitet werden. Interessant 
ist dies, wenn Programmlistings in Texte übernommen werden 
sollen, wie es auch in diesem Buch praktiziert wurde. 


Mit dem folgenden Beispiel können Sie sich davon überzeugen, 


daß diese Programme als Datei eingelesen werden können. Geben 
Sie dazu das folgende Demonstrationsprogramm ein: 


40 PRINT "Das Programm ist beendet!" 


Speichern Sie dieses Programm mit folgendem Befehl auf eine 
Diskette: 


SAVE "DEMO.ASC",A 
Nun wollen wir dieses Programm wie eine Datei einlesen und auf 


dem Bildschirm anzeigen. Dazu ist das folgende Programm 
erforderlich: 
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10 OPENIN "DEMO.ASC" 
20 FOR i=1 TO 4 

20 INPUT #9,8$ 

30 PRINT a$ 

40 NEXT i 

50 CLOSEOUT 


Wenn Sie dieses Programm eingeben und starten, werden Sie 
verblüff feststellen, daß das zuvor gespeicherte Demo-Programm 
nun auf dem Bildschirm angezeigt wird. 


GESCHÜTZTE PROGRAMME 


Vieleicht haben Sie schon einmal versucht, handelsübliche 
Programme in den Rechner zu laden und anschließend 
aufzulisten. Wenn Ihnen das nicht gelungen ist, so liegt das daran, 
daß diese Programme geschützt wurden. Auch Sie können Ihre 
Programme auf Wunsch derartig schützen. Die folgende 
Beschreibung des entsprechenden Befehls zeigt Ihnen wie: 


Problem: Schützen von Diskettenprogrammen 
Befehl: SAVE "name",P 

Parameter: name - Programmname 
Beispiel: SAVE "secret",P 


Speichert das Programm "secret" so auf die 
Diskette, daß es nicht mehr aufgelistet werden 
kann. 


Bemerkung: Es muß eine Version des geschützten 
Programms 
normal gespeichert werden, da der Schutz nicht 
mehr rückgängig gemacht werden kann. 


Diese Beschreibung sagt fast alles aus, was Sie zum Speichern von 
geschützten Programmen benötigen. Lassen Sie uns diesen Befehl 
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gleich ausprobieren. Geben Sie dazu die folgenden BASIC-Zeilen 
ein: 


40 PRINT "Geben Sie den Code ein:"; 
50 INPUT a$ 

60 IF a$<>"xy12" THEN NEW 

70 PRINT "o.k." 


Dieses Programm speichern Sie mit dem Befehl 
SAVE "secret.p",P 
Nun laden Sie das Programm wieder mit dem Befehl 
LOAD "secret.p" 


Starten Sie das Programm mit ’RUN’. Was, das Programm startet 
nicht? Keine Angst, hier ist nichts schief gelaufen, denn 
geschützte Programme können nicht mit ’LOAD’ und ’RUN’, 
sondern nur mit ’RUN"name"’ gestartet werden. Geben Sie also 
den korrekten Befehl ein: 


RUN "secret.p" 


Dies ist eine Möglichkeit des Ladens eines Programm mit 
gleichzeitigem Starten. 


Nachdem das Programm geladen wurde, wird es automatisch 
gestartet. Kann der Code vieleicht doch geknackt werden? 
Vielleicht versuchen Sie, das Programm mit der Taste ’ESC’ 
abzubrechen? Drücken Sie diese Taste dazu zweimal. Siehe da, 
das Programm wurde tatsächlich abgebrochen. Doch freuen Sie 
sich nicht zu früh, denn wenn Sie nun den Befehl ’LIST’ 
eingeben, geschieht nichts, da kein Programm mehr im Rechner 
ist. Es wurde beim Unterbrechen mit ’ESC’ gelöscht. Es gibt also 
keinen Weg, dieses Programm zu knacken. Dies soll nicht 
bedeuten, daß erfahrene Kenner des CPC ebenfalls erfolglos sein 
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werden. Mit den entsprechenden Maschinenkenntnissen läßt sich 
jeder noch so gute Code knacken. Fassen wir zum Abschluß noch 
einmal zusammen: 


Der Zusatz ’,P’ hinter dem Befehl SAVE schützt 
dasProgramm gegen unbefugtes Listen. 


Das Programm kann nur mit 'RUN"name" geladen und 
gestartet werden. 


Wird das Programm mit ’ESC’ gestoppt, so wird der 
Speicher gelöscht. 


Der Schutz kann nicht mehr rückgängig gemacht wer-den. 


SICHERN VON SPEICHERAUSZÜGEN 


Der gesamte Speicher des CPC beträgt 2 mal 64 KByte, also 2 
mal 65535 Bytes (Zeichen). Sollen einzelne Bereiche dieses 
Speichers abgespeichert werden, so ist folgender Befehl 
erforderlich: 


Problem: Speichern von Speicherauszügen 

Befehl: SAVE "name" ,B,von,bis,start 

Parameter: name - Programmname 
von - Anfangsadresse (0-65535) 
bis - Endadresse 
start - Startadresse (bei Maschinen- 

programmen) 
Beispiel: SAVE "routine.BIN",49152,65535 


Speichert den gesamten Bildschirminhalt 


Bemerkung: Der Speicherausschnitt muß mit dem Befehl 
RUN"name" geladen werden. 
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Dieser Befehl ist vor allem zur Speicherung von Maschinen- 
programmen interessant. Dies ist jedoch erfahrenen Program- 
mierern vorbehalten, die die Geschwindigkeit des BASIC nicht 
zufriedenstellt. 


Weiterhin kann der Befehl auch zur Speicherung von erzeugten 
Grafiken benutzt werden. Dazu wird der gesamte Bereich der 
Bildschirmspeichers (49152 bis 65535) auf einer Diskette abgelegt. 
Interessant wird die Abspeicherung des Grafikbildschirms, wenn 
eine mathematisch aufwendige Funktionsdarstellung auf Diskette 
festgehalten werden soll, deren Ausführung mehr Zeit als die 
Speicherung benötigt. Dies ist vor allem bei dreidimensionalen 
Funktionen der Fall. 


PROGRAMMVERKÜPFUNG 


Jeder Programmierer entwickelt im Laufe der Zeit ausgeklügelte 
Unterprogramme, die in vielen Programmen einzusetzen sind. 
Eine umfangreiche Unterprogramm - Bibliothek verkürzt die 
Neuentwicklung von Programmen erheblich. Wie aber werden die 
Unterprogramme zu einem Hauptprogramm verknüpft? Der 
umfangreiche Sprachschatz des CPC6128 bietet auch hier eine 
optimale Lösung an: 


Problem: Verknüpfen von Programmen 
Befehl: MERGE "name" 

Parameter: name - Programmname 
Beispiel: MERGE "UPRO1" 


Lädt das Programm "UPRO1.BAS" zu dem im 
Speicher bereits befindlichen Programm 


Bemerkung: Bei gleichen Zeilennummern werden die Zeilen 
des 
speicherresidenten Programms gelöscht. 
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Die Funktion dieses Befehls wird an folgender Übersicht deutlich: 


Progr. im Speicher Progr. auf Disk. Ergebnis 
10 REM P1 5 REMP2 5 REM P2 
20 REM P1 15 REM P2 10 REM Pi 
15 REM P2 
20 REM P1 
10 REM P1 5 REM P2 5 REMP2 
20 REM P1 10 REM P2 10 REM P2 
20 REM P1 


Hier wird deutlich, daß die Zeilen beider Programme so sortiert 
werden, daß das resultierende Programm den Vorschriften der 
Zeilennumerierung entspricht. Konkurrieren jedoch zwei Zeilen- 
nummern, so wird die Zeilennummer des im Speicher 
befindlichen Programms gelöscht. Dies ist auch verständlich, denn 
jede Zeilennummer darf nur einmal im Programm enthalten sein. 


Sollten die Zeilennummern der beiden zu verknüpfenden 
Programme den Voraussetzungen für eine Verknüpfung nicht 
entsprechen, so müssen sie vorher angepasst werden. Dazu kann 
man z.B. den bereits behandelten Befehl RENUMBER verwenden. 


Abschließend nun ein Beispiel zur Anwendung des Befehls 
MERGE. Geben Sie zunächst das nachzuladende Programm ein: 


10 REM Programm 2 
25 REM Programm 2 
30 REM Programm 2 
45 REM Programm 2 
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Dieses Programm soll später nachgeladen werden und wird 
deshalb mit dem Befehl 


SAVE "PROG2" 


auf eine Diskette abgespeichert. Nun löschen wir den Speicher 
(NEW) und geben das Programm ein, zu dem das vorherige 
geladen werden soll: 


10 REM Programm 
20 REM Programm 
30 REM Programm 
40 REM Programm 
50 REM Programm 


aaa ae 


Nun werden beide Programme verknüpft, indem den Befehl 
MERGE "PROG2" 


eingeben. Der Rechner verhält sich nun wie beim normalen 
Laden des Programms. Der anschließende Befehl ’LIST’ jedoch 
wird Ihnen verdeutlichen, was tatsächlich geschehen ist: 


10 REM Programm 2 
20 REM Programm 1 
25 REM Programm 2 
30 REM Programm 2 
40 REM Programm 1 
45 REM Programm 2 
50 REM Programm 1 


Die beiden konkurierenden Zeilen 10 und 30 wurden durch die 
Zeilen des nachgeladenen Programms ersetzt. Alle anderen Zeilen 
wurden korrekt eingeordnet. Der Befehl MERGE wird Ihnen bei 
der Erstellung neuer Programme mit alten Unterprogrammen sehr 
hilfreich sein. 
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LOESCHEN VON DATEIEN 


Nicht mehr benötigte Programme sollten nicht ewig den kostbaren 
Speicherplatz der Diskette vergeuden. Das DOS des CPC, das 
sogenannte AMSDOS hält einen Befehl zum Löschen von Dateien 
auf Diskette bereit. Alle AMSDOS-Befehle beginnen mit dem 
Zeichen ’|’. Dieses Zeichen erreichen Sie, wenn Sie die Taste 
SHIFT gedrückt halten und die Taste ’? @ ’betätigen. Doch nun 
zum Befehl: 


Problem: Löschen von Dateien 
Befehl: JERA "name" 

Parameter: name - Dateiname 
Beispiel: |ERA ,"secret.p" 


löscht das Programm "secret.p" 


Probieren Sie den Befehl aus und löschen Sie das MERGE- 
Programm aus dem letzten Beispiel: 


|ERA, "prog2.bas" 


Beachten Sie, daß der Zusatz .BAS stets mit angegeben werden 
muß 
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UMBENENNEN VON DATEIEN 


Sollten Sie einmal den Wunsch verspüren, einer Datei einen 
anderen Namen zu geben, so ziehen Sie den folgenden AMSDOS- 
Befehl ein: 


Problem: Umbenennen von Dateien 

Befehl: IREN,"nameneu" "namealt" 

Parameter: nameneu - neuer Dateiname 
namealt alter Dateiname 

Beispiel: |REN,"DEMO.BAS" "DEMO01.BAS" 
nennt das Programm DEMO01.BAS um in 
DEMO.BAS" 


Auch hier muß der Namenszusatz immer mit angegeben werden. 


Sicherlich stellt das AMSDOS und vor allem das Betriebssystem 
CP/M mehr Befehle zur Verfügung, als in diesem Kapitel 
beschrieben wurden. Zu viel des Guten verwirrt jedoch 
erfahrungsgemäß den Leser. Aus diesem Grund beschränkt sich 
dieses Buch auf die wichtigsten Befehle zur Verwaltung von 
Programmen auf der Diskette. 
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KAPITEL 9: 
NOCH MEHR BEFEHLE 


Wenn Sie dieses Kapitel des Buches erfolgreich erreicht haben, so 
werden Sie es sicher nicht erwarten können, weitere Befehle des 
umfangreichen CPC-BASICs kennenzulernen. Dem soll nichts im 
Wege stehen. Sie werden nun mit Befehlen konfrontiert, deren 
Komplexität sich in Grenzen hält. Zu allen Befehlen finden Sie 
wie gewohnt eine ausführliche Beschreibung sowie erklärende 
Beispielprogramme. 


JOYSTICKABFRAGE 


Wenn Sie Ihren CPC ausnahmsweise von hinten betrachten, 
werden Sie auf der rechten Seite einen Anschluß bemerken, der 
an fast jedem Homecomputer zu finden ist. Hier werden die so- 
genannten Joysticks angeschlossen, die hauptsächlich dazu dienen, 
Spiele optimal steuern zu können. 


Da die Abfrage der Stellung eines Joysticks beim CPC recht ein- 
fach ist, werden wir den entsprechenden Befehl nun kennenler- 
nen. 


Problem: Abfrage des Joysticks 

Funktion: JOY (n) 

Parameter: n- Nummer des Joysticks 
(0 oder 1) 

Beispiel: PRINT JOY(0) 


Zeigt den Code der Joystickbetätigung auf dem 
Bildschirm. 
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Bemerkung: Es gelten folgende Codes: 
5 1 9 
32 


Feuerknopf 1 
4 8 
16 


Feuerknopf 2 
6 2 10 


Sie haben bemerkt, daß zwei Joysticks abgefragt werden können, 
obwohl nur ein Anschluß vorhanden ist. Es können nur zwei 
Joysticks angeschlossen werden, wenn es sich um Original - 
Joysticks von SCHNEIDER oder Joysticks anderer Firmen, die 
für den CPC bestimmt sind, handelt. Reicht Ihnen jedoch ein 
Joystick aus, so können Sie jeden handelsüblichen Joystick (z.B. 
für ATARI, COMMODORES64) verwenden. Dieser wird dann 
als ’JOY(0)’ angesprochen. 


Schreiben wir nun zunächst ein Programm, das die Betätigung des 
Joysticks optisch am Bildschirm zu erkennen gibt. 


10 PRINT JOY(O) 
20 GOTO 10 


Wenn Sie dieses Programm eingeben und starten, so werden Sie 
die Codes jeder Betätigung des Joysticks erkennen. Auf diese 
Werte kann das entsprechende Programm dann reagieren. 


Mit der Funktion ’JOY (n)’ läßt sich ein eindrucksvolles 
Programm zum Zeichnen auf dem Bildschirm schreiben. Der 
Feuerknopf soll zum Löschen des Bildschirms benutzt werden. 
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10 MODE 2 

20 CLS 

30 x=320:y=200 

40 PLOT x,y 

50 a=J0Y(0) 

60 IF a=4 AND x>0 THEN x=x+1:G0T0 40 
70 IF a=8 AND x<639 THEN x=x-1:G0T0 40 
80 IF a=1 AND y<399 THEN y=y+1:G0TO 40 
90 IF a=2 AND y>0 THEN y=y-1:G0TO 40 
100 IF a=16 THEN CLS 

110 GOTO 40 


Dieses Programm ist recht einfach gestaltet. Sicher werden Sie 
keine Probleme haben, die Arbeitsweise zu verstehen und kleine 
Verbesserungen vorzunehmen. So wäre z.B. eine Erweiterung auf 
diagonales Zeichnen sehr interessant. Ein Tip: Sie benötigen dazu 
vier weitere IF-Abfragen, die jeweils beide Variablen (’x’ und 
’y’) auf einen gültigen Wert überprüfen und aktualisieren müssen. 


ZUFALLSZAHLEN 


Fast jeder BASIC- Anfänger schreibt seine ersten Spiele mit Hilfe 
von Zufallszahlen. Ohne Zufallszahlen wäre die Programmierung 
von Glücksspielen unmöglich. Der CPC erzeugt mit einer 
Funktion Zufallszahlen zwischen 0.000000001 und 0.999999999: 


Problem: Erzeugen von Zufallszahlen 
Funktion: RND (1) 
Beispiel: PRINT RND(1) 


Erzeugt eine Zufallszahl und gibt diese auf dem 
Bildschirm aus. 


Bemerkung: Die erzeugte Zahl liegt zwischen 0.000000001 
und 0.999999999 
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Ein Befehl, der leicht anzuwenden ist. Schwieriger wird es, wenn 
die Zahl innerhalb eines anderen Bereichs liegen soll. Dazu muß 
der Zufallswert aufbereitet werden. Soll z.B. eine Zahl zwischen 0 
und 999 ermittelt werden, so muß die Zufallszahl wie im folgen- 
dem Programm aufbereitet werden: 


10 REM We 


20 REM WUERFEL 

30 REM WR TH a a 
40 zahl=RND(1) 

50 PRINT INT(zahl*1000) 


Die Zufallszahl wird also mit 1000 multipliziert. Der Bereich der 
möglichen Zufallszahlen liegt dann zwischen 0.000001 und 
999.999999. Da die Nachkommastellen nicht benötigt werden, 
werden sie mit der Funktion INT "abgeschnitten". 


Eine weitere Schwierigkeit ist, wenn die gewünschte Zahl nicht 
bei Null, sondern bei einer anderen Zahl beginnen soll. Mit fol- 


gender Formel kann jeder beliebige Bereich von Zufallszahlen 
erzeugt werden: 


Umrechnen von Zufallszahlen 


INT (RND(1) * ((B+1)-A))+A 










A - erste gültige Zahl 
B - letzte gültige Zahl 


Sollen beispielsweise Zahlen zwischen 1 und 6 ermittelt werden, 
so wird die erforderliche Formel wie folgt aufgebaut: 


INT(RND(1) * ((6-1)+1))+1 
ergibt 

INT(RND(1) * (5+1))+1 
ergibt 

INT(RND(1) * 6)+1 
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Das abschließende Programm soll Lottozahlen (6 aus 49) erzeugen: 


10 REM Kirk 


20 REM Lottozahlen 

30 REM We 

40 PRINT "Wieviele Reihen ";reihen 

50 FOR ii=1 TO reihen 

60 FOR i2=1 TO 6 

70 PRINT INTCRNDC1)*49)+1;" - "; 
80 NEXT i2 

90 PRINT 

100 NEXT i1 


Auch dieses Programm werden Sie schnell durchschauen. Es hat 
aber einen Haken: In einer Reihe können zwei oder mehrere 
gleiche Zahlen auftauchen. Dies zu vermeiden, soll nun Ihre Auf- 
gabe sein. Ein Tip: Speichern Sie alle in einer Reihe bereits ge- 
zogenen Zahlen in einem Array (Tabelle), das Sie dann mit der 
aktuellen Zahl vergleichen. Nur wenn die ermittelte Zahl nicht .im 
Array enthalten ist, wird sie akzeptiert. Vor der nächsten Reihe 
muß dieses Array aber wieder gelöscht werden. Viel Spaß! 
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LEFT$ 


Die im folgenden behandelten Funktionen zur Verarbeitung von 
Strings werden Ihnen ganz neue Möglichkeiten eröffnen. So 
können z.B. einzelne Teile von Strings zur weiteren Verarbeitung 
ermittelt werden oder Strings in ein anderes String eingesetzt 
werden. Es lohnt sich sicherlich, diese Befehle einzustudieren. 
Jede Funktion beginnt zunächst mit der Beschreibung. 


Problem: Linken Teilstring ermitteln 

Funktion: LEFT$(string,anz) 

Parameter: string - Stringvariable oder String in 
Anführungszeichen 

anz - Anzahl der Zeichen, die von links 

ausgehend übernommen werden 
sollen 

Beispiel: PRINT LEFT$("ABCDEFG",3) 


Gibt die linken drei Zeichen des Strings (ABC) 
auf dem Bildschirm aus. 


Bemerkung: Ist die Anzahl der Zeichen größer als der 
String, so wird der gesamte String übernommen 


Diese interessante Funktion kann also Strings von links ausgehend 
"abschneiden". Das folgende Programm sagt mehr als viele Worte: 


10 INPUT "Geben Sie Ihren Namen ein:";name$ 
20 anz=1 

30 teil$=left$(name$, anz) 

40 PRINT teil$ 

50 IF teil$=name$ THEN 80 

60 anz=anz+1 

70 GOTO 30 

80 PRINT "Ende" 


Da dieser Befehl einfach zu handhaben ist, wollen wir gleich zum 
nächsten Befehl übergehen: 
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RIGHT$ 
Problem: Rechten Teilstring ermitteln 
Funktion: RIGHT$(string,anz) 
Parameter: string - Stringvariable oder String in 
Anführungszeichen 
anz - Anzahl der Zeichen, die von rechts 
ausgehend übernommen werden 
sollen 
Beispiel: PRINT RIGHT$("ABCDEFG",3) 
Gibt die rechten drei Zeichen des Strings 
(EFG) auf dem Bildschirm aus. 
Bemerkung: Geht die Anzahl der Zeichen über die Länge 
des Strings hinaus, so wird der gesamte String 
übernommen. 


Diese Funktion gleicht der vorher beschriebenen und braucht 
auch nicht weiter beschrieben werden. Vielleicht ändern Sie das 
Programm auf der letzten Seite, indem Sie die Funktion ’LEFT$’ 
gegen ’RIGHT$’ ersetzen. Der Unterschied der beiden Funktio- 
nen wird dann deutlich. 


Nun haben wir den linken und den rechten Ausschnitt eines 
Strings ermittelt. Eine weitere Funktion kann sogar Ausschnitte 
inmitten eines Strings bilden: 
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MID$ 
Problem: Stringausschnitt ermitteln 
Funktion: MID$(string,pos,anz) 
Parameter: string - Stringvariable oder String in 
Anführungszeichen 
pos - Position im String, ab der der 
Ausschnitt beginnen soll 
anz - Anzahl der Zeichen, von der 
Position ausgehend übernommen 
werden sollen 
Beispiel: PRINT MID$("ABCDEFG",2,4) 


Gibt ab der Position zwei vier Zeichen des 
Strings (BCDE) auf dem Bildschirm aus 


Bemerkung: Ist die Anzahl der Zeichen größer als der Rest 
des Strings, wird der gesamte Rest 
übernommen. 


Nachdem wir bisher Strings von links oder rechts beginnend 
abgeschnitten haben, bietet diese Funktion nun die Möglichkeit, 
Zeichenfolgen mitten im String zu ermitteln. Dazu benötigt diese 
Funktion einen Parameter mehr, als die beiden vorherigen, denn 
neben der Anzahl der Zeichen muß auch die Anfangsposition 
übergeben werden. 


Diese Funktion wird oft eingesetzt, um die Zeichen eines Strings 
einzeln auszugegeben. So kann z.B. eine Zeichenfolge senkrecht 
auf dem Bildschirm ausgegeben werden. Das folgende Programm 
demonstriert dies: 


10 a$="WAAGERECHT" 

20 FOR p=1 TO 10: REM Laenge des Strings 
30 PRINT MID$Ca$,p,1) 

40 NEXT p 
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Die Anfangsposition wird in einer Schleife jeweils um eins nach 
rechts verschoben. Die Länge des Stringabschnittes ist konstant 
eins, da nur jeweils ein Zeichen ausgegeben werden soll. Was 
aber, wenn die Länge des Strings nicht bekannt ist? Auch dieses 
Problem ist gelöst, nachdem Sie die folgende Funktion kennen- 
gelernt haben: 


ERMITTELN DER STRINGLÄNGE 


Problem: Ermitteln der Stringlänge 

Funktion: LEN(string) 

Parameter: string - Stringvariable oder String in 
Anführungszeichen 

Beispiel: A$="ABCDEFG":PRINT LEN(A$) 


Gibt die Länge des Strings ’A$’ (7) auf dem 
Bildschirm aus. 


Bemerkung: Ist der String leer, so ergibt die Funktion den 
Wert 0. 


Setzen wir diese Funktion nun in das Programm auf der vorheri- 
gen Seite ein, so wird ein beliebiger String senkrecht ausgegeben: 


10 INPUT "String:";a$ 

20 FOR p=1 TO LEN(a$) 

30 PRINT MID$Ca$,p,1) 
40 NEXT p 


Diese Lösung ist eleganter als die letzte, da die Länge des Strings 
nun nicht bekannt sein muß. 


Nachdem Sie die wichtigsten Stringfunktionen kennengelernt 
haben, folgt nun ein kleines, eindrucksvolles Programm: 
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10 REM RR 


20 REM Laufschrift 
30 REM WERT a 


40 CLS 
50 INPUT "Text: ",text$ 
60 INPUT "Laenge: ";Laenge 


70 INPUT "Tempo (1-7):"; tempo 

80 I=LEN(text$) 

90 text$=STRINGSCL,"-")+text$+STRINGSCL,"-") 
100 FOR i=1 TO L 

110  LOCATE 12,20 

120 PRINT MID$(text$,i,laenge) 

130 FOR wait=1 TO tempo*50:NEXT wait 

140 NEXT i 

150 GOTO 100 


Der Text, der in Laufschrift gezeigt werden soll, wird in die 
Varibale ’text$’ eingelesen. Danach wird die Länge des 
Ausschnittes der Laufschrift in ’laenge’ festgehalten. Nachdem 
ein Tempofaktor in ’tempo’ gespeichert wird, erhält die Variable 
’’’ die Länge des Textes. Damit der Text mit führenden und ab- 
schließenden Zeichen getrennt wird, ist die Zeile 90 eingefügt 
worden. Hier wird die bereits in der Adressenverwaltung benutzte 
Funktion ’°STRING$’ zur Erzeugung von Ketten eines Zeichens 
eingesetzt. Die folgende Schleife läuft bis zur Länge des 
eingegebenen Textes und gibt jeweils den Teilstring aus, der sich 
aus der Position und der anfangs bestimmten Länge ergibt. Die 
Warteschleife in Zeile 130 läuft je nach Wert des Tempofaktors 
zwischen 50 und 350. Diese Schleife wird immer wieder 
aufgerufen, bis das Programm mit der Taste ’ESC’ abgebrochen 
wird. 
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INSTR 


Oft ist es erforderlich, einen String nach einem bestimmten Inhalt 
zu durchsuchen, vor allem bei der Datenverwaltung. Es folgt zu- 
nächst die Beschreibung der Funktion, die dies ermöglicht: 


Problem: Suchen eines Strings in einem anderen 

Funktion: INSTR(pos,‚string1,string2) 

Parameter: Dos - Position, ab der gesucht werden soll 
string] - String, in dem gesucht werden soll 
string2 - String, nach dem gesucht werden 

soll 

Beispiel: PRINT INSTR (3,"ABCDEFGHIJ" ,"FGH") 


Durchsucht den zuerst genannten String ab der 
Position 2 nach dem zuletzt genannten String 
und gibt dessen Position (6) auf dem 
Bildschirm aus. 


Bemerkung: Wird der gesuchte String nicht gefunden, so 
wird der Wert 0 ausgegeben. Die Angabe der 
Position kann entfallen, wenn der gesamte 
String durchsucht werden soll. 


Diese komfortable Funktion unterstützt das Suchen gewisser 
Daten in einer Datei. Bisher konnten wir nur Strings an genau 
bestimmten Positionen überprüfen, mit ’INSTR’ jedoch wird der 
gesamte String nach einer Zeichenfolge durchsucht. Ein 
Programm soll das verdeutlichen: 
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5 CcLS 

10 INPUT "TEXT: ";text$ 

20 INPUT "SUCHBEGRIFF: ";such$ 

30 p=INSTR(text$,such$) 

40 IF p=0 THEN 70 

50 PRINT "Der Suchbegriff befindet sich an der";p;". Stelle im Text!" 
60 GOTO 80 

70 PRINT "Suchbegriff nicht gefunden!" 

80 PRINT "Suche beendet" 


Hier geben Sie zunächt einen Text und anschließend einen Such- 
begriff ein. Die INSTR-Funktion ind Zeile 30 speichert das 
Ergebnis der Suche in ’pos’. Hier wurde keine Anfangsposition 
eingesetzt, da der gesamte String ’text$’ durchsucht werden soll. 
Nur wenn das Ergebnis der Suche, also die Variable ’pos’ un- 
gleich Null ist, ist der Suchbegriff gefunden worden. Die 
Position, an der die Suche erfolgreich war, wird dann aus- 
gegeben. 


Abschließend nun eine erweiterte Form des Programms, die es 
ermöglicht, den gefundenen Suchbegriff durch einen neuen 
Begriff zu ersetzen: 


5 cLs 

10 INPUT "TEXT: ";text$ 

20 INPUT "suchen nach: ";such$ 

30 INPUT "ersetzen durch:";ers$ 

40 p=INSTR(text$,such$) 

50 IF p=0 THEN 90 

60 text$=LEFT$Ctext$,p-1)+ers$+MID$Ctext$,p+LEN(such$), 
LENCtext$)-len(such$)-(p-1)) 

70 PRINT "Neuer Text: ";text$ 

80 GOTO 100 

90 PRINT "Suchbegriff nicht gefunden!" 
100 PRINT "Suche beendet" 


Die Zeile 60 wird Sie vielleicht verwirren, da hier eine Menge 
Stringfunktionen untergebracht wurden. Dies ist auch erforder- 
lich, da der neue String aus folgenden Teilen zusammengebaut 
wird: 
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1. Der Teil bis vor der Position des gefunden 
Datensatzes (p-1) 

Der neue Begriff (’ers$’) 

Der Rest, angefangen bei der Position hinter dem 
Suchbegriff (p+LEN(such$)) bis zum Ende des Textes 
(LEN(text$)-len(such$)-(p-1)) 


en 


Eine derartige Routine zum Suchen und Ersetzen finden Sie in 
fast jeder Textverarbeitung. Mit dem CPC kann sie auf ein- 
fachstem Weg realisiert werden. 
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ANHANG 1: 
RESERVIERTE WORTE 


Die Namen von Variablen sind zwar frei wählbar, jedoch nur mit 
Einschränkungen. Alle Worte, die im Sprachschatz des BASIC 
enthalten sind, dürfen nicht verwendet werden. Wird dies nicht 
beachtet, so erinnert der CPC Sie mit einem "Syntax error" an 
das, was Sie stets beachten sollten. Sollten Sie diese 
Fehlermeldung in einer BASIC-Zeile erscheinen, wo Sie es sich 
ganz und gar nicht erklären können, so achten Sie zuerst auf die 
Variablenbezeichnungen. Oft sind Worte aus der folgenden Liste 
als Variablennamen benutzt worden, was derartige Folgen hat. 


ABS DATA ERROR 
AFTER DEF EVERY 
AND DEFINT EXP 
ASC DEFREAL 
ATN DEFSTR FIX 
AUTO DEG FN 

DELETE FOR 
BIN$ DEG ; FRE 
BORDER DELETE 

DI GOSUB 
CALL DIM "GOTO 
CAT DRAW 
CHAIN DRAWR HEX$ 
CHR$ HIMEM 
CINT EDIT 
CLEAR EI IF 
CLG ELSE INK 
CLOSEIN END INKEY 
CLOSEOUT ENT INKEY$ 
CLS ENV INP 
CONT EOF INPUT 


COS ERASE INSTR 
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CREAL 
JOY 
KEY 


LEFT$ 
LEN 

LET 
LINE 
LIST 
LOAD 
LOCATE 
LOG 
LOG10 
LUWER$ 


MAX 
MEMORY 
MERGE 
MID$ 
MIN 

MOD 
MODE 
MOVE 
MOVER 


NEXT 
NEW 
NOT 


ON 

ON BREAK 

ON ERROR GOTO 
ON SQ 

OPENIN 
OPENOUT 

OR 

ORIGIN 


ERL 
ERR 
OUT 
PAPER 
PEEK 
PEN 
PI 
PLOT 
PLOTR 
POKE 
POS 
PRINT 


RAD 
RANDOMIZE 
READ 
RELEASE 
REM 
REMAIN 
RENUM 
RESTORE 
RESUME 
RETURN 
RIGHT$ 
RND 
ROUND 
RUN 


SAVE 
SGN 
SIN 
SOUND 
SPACE$ 
SPC 
SPEED 
sQ 
SQOR 
STEP 
STOP 


INT 


STR$ 
STRING$ 
SWAP 
SYMBOL 


TAB 
TAG 
TAGOFF 
TAN 
TEST 
TESTR 
THEN 
TIME 
TO 
TROFF 
TRON 


UNT 
UPPER$ 
USING 


VAL 
VPOS 


WwAIT 
WEND 
WHILE 
WIDTH 
WINDOW 
WRITE 


XOR 
XPOS 


YPOS 


ZONE 
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ANHANG 2: 
FEHLERMELDUNGEN 


So seltsam es auch klingt: Fehlermeldungen sind für einen 
Computer genauso wichtig wie die Befehle. Je mehr verschiedene 
Fehlermeldungen ein Rechner vorweisen kann, desto einfacher ist 
es für den Anwender, seine Fehler zu lokalisieren. Stellen Sie sich 
vor, Ihr Rechner würde auf jeden Fehler mit "Syntax error" 
reagieren! Sicher würden Sie dann Ihre Fehler nur sehr mühsam 
feststellen. Da der CPC sehr viele Fehlermeldungen ausgeben 
kann, werden diese nun beschrieben. Hier können Sie immer 
dann hereinschauen, wenn eine Ihnen noch nicht bekannte 
Fehlermeldung auftritt. 


Die Nummer vor der jeweiligen Fehlermeldung wird für das 
Abfangen des Fehlers innerhalb eines Programms (ON ERROR 
GOTO) benötigt. Dieser Befehl jedoch wurde in diesem Buch 
nicht behandelt, sodaß Sie diese Nummer erst später zu nutzen 
wissen werden. 


1 Unexpected NEXT 

Es ist ein NEXT im Programm enthalten, dem keine FOR- 
Schleife vorangegangen ist, oder die Schleifenvariable beim 
NEXT stimmt nicht mit der beim FOR-Befehl überein. 

2 Syntax error 

Diese Fehlermeldung dürfte Ihnen nicht unbekannt sein. Sie wird 
immer dann gegeben, wenn der CPC die von Ihnen eingegebene 
Zeile nicht versteht. 


3 Unexpected RETURN 


Der Programmablauf wurde an einem RETURN beendet, da kein 
GOSUB-Befehl vorangegangen ist. 


2 Anhan 


4 DATA exhausted 


Es sollen mehr Daten mit READ eingelesen weren, als in DATA- 
Zeilen angegeben wurden. 


5 Improper argument 


Dies ist eine allgemeine Fehlermeldung, die immer dann auftritt, 
wenn der Wert einer Funktion oder ein Parameter ungültig ist. 


6 Overflow 

Das Ergebnis einer Berechnung liegt über der größten 
speicherbaren Zahl oder es die Zuweisung für eine 
Integervariable ist nicht als 16-Bit Integerzahl zu codieren. 

7 Memory full 

Das Programm oder die Variablen haben eine Größe 
angenommen, die über den zur Verfügung stehenden 
Speicherplatz hinausgeht.Der MEMORVY-Befehl verursacht diese 
Fehlermeldung, wenn versucht wird, den BASIC-Anfang an einen 
ungültigen Bereich zu legen. 

8 Line does not exist 

Eine angegebene Zeilennummer ist nicht im Programm enthalten. 


9 Subscript out of range 


Der Index eines Arrays ist zu klein, oder größer als mit DIM 
reserviert. 


10 Array already dimensioned 


Ein Array in der DIM-Anweisung wurde bereits dimensioniert. 
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11 Division by zero 


Es wurde eine mathematisch nicht erlaubte Division durch Null 
ausgeführt. 


12 Invalid direct command 


Es wurde eine Anweisung im Direkt-Modus eingegeben, die nur 
in Programmen auftreten darf (z.B. INPUT). 


13 Type mismatch 


Ein numerischer Wert wurde angegeben, wo ein String erwartet 
wird, oder umgekehrt. 


14 String space full 


Es existiert kein weiterer Speicherplatz zum Einrichten von 
Strings. 


15 String too long 


Die Grenze eines Strings von 255 Zeichen wurde z.B. durch 
Stringaddition überschritten. 


16 String expression too long 

Zur Ermittlung von umfangreichen Stringausdrücken werden 
Strings zwischengespeichert. Wenn dieser Speicher überschritten 
wird, erscheint diese Fehlermeldung. 


17 Cannot CONTinue 


Das Programm kann mit dem Befehl CONT nicht fortgesetzt 
werden. 


18 Unknown user function 


Eine Funktion (FN) wurde nicht mit DEF FN bestimmt. 


20 An 


19 RESUME missing 


Das Programm wurde in einer ON ERROR GOTO Routine 
abgebrochen. 


20 Unexpected RESUME 


Ein RESUME kann nicht ausgeführt werden, da keine ON 
ERROR GOTO Routine angesprochen wurde. 


21 Direct command found 


Beim Laden eines Programms von der Kassette wurde eine Zeile 
ohne Zeilennummer gefunden. 


22 Operand missing 
Ein erforderlicher Parameter wurde nicht angegeben. 
23 Line too long 


Eine BASIC-Zeile überschreitet die maximale Größe (255 
Zeichen). 


24 EOF met 
Es wurde versucht, eine Datei über das Ende hinaus zu lesen. 
25 File type error 


Der Lesezugriff auf ein Programm oder eine Datei ist falsch. So 
kann z.B. keine Datei mit LOAD geladen werden. 


26 NEXT missing 


Es wurde eine FOR-Schleife ohne entsprechendes NEXT 
programmiert. 
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27 File already open 


Eine Datei, die noch nicht geschlossen ist, wurde versucht zu 
öffnen. 


28 Unknown command 


Ein Befehl wurde eingegeben, der nicht im Befehlssatz enthalten 
ist. 


29 WEND missing 


Eine WHILE-Schleife wurde ohne entsprechendes WEND 
eingesetzt. 


30 Unexpected WEND 


Das Programm trifft auf einen WEND, dem keine entsprechende 
WHILE-Schleife vorangegangen ist. 


21 Anhan 


ANHANG 3: 
STICHWORTREGISTER 
een llereeessage nase nsessshesslesge shoes nes tee rege stone 57 
uplantiahawsdknnescgesssganenbeensnssnentHeneneeneneseenneHRrehsgeer Ten e Ense rrensuguentateeeteeeett 54 
FRE BERT SEELEN OR BERNER TURN EER TEE SEE ES ELTERE TEE TEE TOT 55 
I naswtesgesa sig eeeneeseen eigsssseeneherestnee sure nNens serie iger ekeeeetsteeeseesesehtreenreeen 51 
N RE ET TER? 93 
Addition::..2n.0Hasn nannten Reste inreisten hessen enger erte 43 
Adressenverwaltung ...........esssssssnonnnnnssseennnnnnnnnnnnnnnnnnnnnnnsssssssnnnnnnnnn 89 
ÄAMSTRAD,, ...:.. 8.220 mE tnentegssessseniräbsn 7 
AND - Verknüpfung.........uueeesseessssssnnnnesssnnnnnnnnnnnnnnnnnnnnnnnnnnnen nn 117 
ATTaySsi net sun lenkeseentrndeheaeernasneessspersenheenatesssnssssssets 96 
ASC Herne rlenleredssesssnegenteeinsitesnnnrnsrsssneiheeituneenst 118 
ÄASCH = Code:..2:.000050.22050825 000000 res nennrenes sent 6, 87, 118, 178 
ASCI =-Däteien .......n.... een 178 
Auflösung; MONIMOr=...:aseesssneseasasssänsterseesesslnadkkengensenseer airerennten 28 
AUTO... 23m tienneneeehvenenecnsiehnehleennnen eher 74 
Auto-Repeät:....hssesessesessesnsasdensetksecesssssserssnnseküntkerenesesrehregegennn 10 
BASIC 

Definition.:..“..icsciresisnlinseneierrenen 40, 62 

SDEICHET: ::...Kuscisnssedersehnsatengneenenene here eerstenense nen rteherehge enter 7 
bedingte Verzweigung (IF).....................220002200000000n00nnnnnnnnnnnnnnnnnn 115 
berechneter:SPTUN$ 2... nneeeleineshosensssssssstareserteseten 120 
Betriebssystem ...un..asrererekesessstesssterengerkesehtertseruesäraneen 7 
Bildschirmeditor.:::...:54..222:s00022. 05 asesnesenadegenkerrerarannetrsenenn 30 
Blinkgeschiwndigkeit..........eussseessessssssssnsssssennnnnnnnnnensnnnnnnnnnnennenn 152 
BORDER 24:2... 40421 aasten auskennen seen 150 
BREAR u... nneennassnetrieninesesesrettnneene 72 
Buchstaben... se genen eedenn dene ssesssasntnsenerenete 17 
CAPS:LOCK 2. Rare menge eneieustinee 20 
CAT Een ern etgeiren ee Re reeele 183 
CHRS ER ER u Resseeen 87, 118 
ELOSEOUT. #2... engineering 144 
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CEST essen 15 
CONTesseetenssessnnsssenskesggesaenesgeseitness rennen eenesessiere 72 
COPY- Taste... 2.222 22a 29, 68 
CIRLEAN BER rseslenseeseerene let 8, 73 
Cursor 
Grafik>,...0nee ne essen een trennen teneseneeeeeeeeteneseheäeee 163 
Kodierung ersehen eneeeensrsse seen 29 
POSItIONIETUDR: 4:4... igssisssssnnnlgksshsehresenn 110 
VIDUngen ee ee 8 
GUrLSOLLasten. nen ssseteeteehnslssnlithtnssessnneeneertee 9 
ION ee nee ehe ee sseihle lereteitgenke 90 
Däatentelder.:2.:...4...: 2 a Ense anmass nern 91 
Datensatz.....42cestneeechekesessennentenssneesrses see nesstneeeenetTehätedeestenee 91 
10) 21 EN 21 
DELETE: sm essen ehiageesee ssuessnnagsefe rege setnungeegnaeeene tee 84 
Dezimalpunkt......:...na8 Rainer 46 
DIM 2222502200020 00 nseseeeannse nassen aneteresanetsehnnlanncsnnnGesneg anderen geete 97 
Dateneingabe... 2 heuseseienenanssteenenerennnsensenenes een nnsrneeeenreeen 101 
Direkt-Modüs:. 2.2... ns esseentiehsnes 41, 63 
Diskettenlaufwerk‘.....:r0.00esssuessssiressebenseensensens nen kenednsteene 90 
DIVISION... a. AnuNe nennen legseteise 43 
DRAW. 22.2 anunleernnestenssunns rennen rer 163 
DRAWR 1.02.80 esnnsreelinertsieesssnntner then 166 
Drei-Finger-Griff......:....sr.. anne 8 
Druckausgabe... isn sssswerepegsssgessregesungegstsseee 137 
EDIT 42.2.3 een ehersitsekinee 68 
Editör.2.... nennen eesahsssesshsefessniete 12, 29, 68 
Eintügemodus.....%4ltseerasstsiessesneegenssarsensgnesshasseessentsdkensteetkfsneen. 14 
Einschaltmeldüng.........cisssnseäsien nnd 7 
ENTER-TaSte::......3:#.0aen nme 13, 39 
EICH een an en neesseeeng 8, 67, 72 
EXDONERL. nen erssdetschnesn ans seareehen este resegee een astelrethse 47, 52 
Farben 
Anzahl... Ne reinlesen 148 
Auswahl... serien seleensetere een heengen 154 
COIE..2:::24040040erhesnenensaseesterinstengesennaereg enden ges ren es sneshentsFergeeen 149 


Rahmen =:...::...:u&00 00003 nsssastsentesnenennenescheensneten rer hessehrede 150 

Standard... shake hnisten 155 

Zeichen =: 2:2: eisen nthnsnnendeerennteennserenhknstereh 153 
Farbmonitor:...,..::.%-:::455.40e08:s0080000nsenassngeduseeeseene ges shererken eeheeseeeneeree 28 
Fehlermeldung..:.......:...:232522.:2.:. 0080000 inreeslessnnsensssn ner 117 
Belder:i.....c. weeieseseseeneerenratesenenenernntseten ernannte sTreeesssnssagnenset 91 
Fließkömmazahlen:.::;......::..5.5:s:#00ssJ@800002008200sdessnässeennessressensnereneren 47 
FOR 2.222.220 08004 annesessteelstsnensgetnnugnbeaustentenesnttenshrehenehgreen 103 
Funktionstasten ..........:.0s:20.52000000050060084000 50260 nersasen nenn ssreneerer nee 85 
Gerade: zeichnen.:.....:.:...2.l le un nssnsnnbesennn 163 
Gleitkommäzahlen.........2..::2:.2..000.::4204060600040 000 nenne ersshnsesnreeeee seen" 47 
GOSUB: 2a une elslsieneistsersesengeindecnesennlenssntee 111 
GOTO. 2:2. arennseteenesessunsrtesserettegnengeehsshtenen tete 71 
Grafik 

AUFIÖSUNE \seeenesseesenniende sans knensenanna nen nesenenhetenesnsrennehhekhetneee 148 

SCUFSOF 5; :..300420 320 annensen genen ne eBedässsessecnenseneresrrernerlereeRr Ten rEe 164 

hochauflösende: .;.........:.2:.:0000002:0000000800 050800 160 
Gross/Kleimschrift:...n....resreeernehnnnesene 19 
GrünmoNitOr....sesasrerseheesssreenersseneeteeereeeeeeteerkerHregree erg hereeeren 28 
Grundrechenärten..::.......s::Ess0nnsresennenensssunterserrenehnee nahe tetstee 42 
Haußtspeicher:.casstsecnsiseisssssasespadnessnstsentrnenen nass eeägeeetn ersteren 7 
IE An eenernnensellelennereeshsteieeheelern kennen 115 
Index: ..:0.. 008 aa sgesase stets tteegennneennagesrsengenesseenee sh enerere 97 
INKREa N sn elteisnsheeenerecheeregenn en rlehssettene traten 154 
INKEYB... nase san ennsnnsierfeenees nenne 128 
INPUT. 2.2... 2. eneesnesrnerenees rennen 101 
INBUE # 22.538222. nsndeee herzen ante nengenete enge regnen 145 
INSTR 4:2... 220 araeseshsiusentseishentsestterenene 197 
JON..a seien rnklestensgersstitite 188 
Joystickabfrage..:....u6enenrenersre 188 
KEY... Re eisen Nsreenndeseereeentteeeen 85 
Klammerrechnlung..........:......00.002020s00000000nsnnssnsneensannnsersnsensenssrseeee 50 


KöDiercüfsor.....:.:0:ineenesssen essen ale egrereeen 29, 68 


Anhan 21 


Kreis 

Berechnung: seen reeenettneneener 53, 101 

ZEICHNEN. 38 2:.:0essneesesiahnehsänesseeennsedeesleaereerte denen hen neeeee Ne 162 
laden 

Programm... enanineesernsssesssbsssnesdsses 71 

Date13......t....:..0 0 trssaesene see restsgsnensehnagedegeernenenensenteeese hehe 144 
Leertasten. ce eessssesensnentessnsandehesnsecnnegensuhfesenee 20, 44, 138 
LERTS.2.....2. m Sn kerendehahenstseseshtaisereeene 192 
DENGSSSSSSSS N na nnekesedenhueeknenendnedsnnanestsdeseen 196 
Linien: zeichnen... 2%. Asthereseeesekenenehe ers nkerneesstehetenereen 163 
LIST%W42202..2: a nnnniestssssssseessshesssesttstssetittssn 67 
EOAD:.22..32 nennen entees leer eneneseReteerrereee here 74 
LOCATE: wa Sees esslessses yreeeeresetsere 110 
LOCOMOTIVE SOFTWARE. ...........zucsssssesessssnssssessssonennnnennnnnneeennn 7 
Löschen; Bildschirm:........s:#s.0.s2s25008S0u0052220005eesansesasssnssnsnseseenre seen 15 
MENUE:.. resistent estesse 113 
MERGE 2 es lsehissserttssessssusetehnssshereneni 186 
MIDDLE 195 
MODE... eesnaienenernnemneiesn 26, 148 
MOVE: eos ssssdsss re ssasreenenvernsresssseehnussenissttesesnstnstttessenNTente 164 
MOVER!: Sara inneesnsneeeen es senensertndeendneesreeeteeree 166 
Multiplikation::..=.:5...0000000000508eetsosneesnensrseetsnnnessdennesessnnenegsehhesstsen 43 
NEW N sugeennsun ass enlartsüetenelusndensteerentar enger treten 83 
NEXT en lelstelnt gene sisssstessessenn 105 
ONIGOTO::: re Nesteetzesenesetnsrssstenteeesesterntersen trennten 120 
OPENODUT... 2.2.2100 ee een eassnestarssetteerttestsnesesekstettretetete 143 
OR as sense an ass genennnehes seh reetnensgesssssetslssrerneeensensngereerseeee 117 
PAPER #2. 32 8. le annsennusnrelonissesressense 158 
Parameter... 0... slenreestussnnnsse nee nefneseneestenneteeerenerse ge eenstereTen 42 
PEN Wis... desekkestssnens er een en arere sg ustsentersne ers 153 
PR N senseisleendnesennen erg 51 
PEOT anni nis ssisens 161 
PLOTR..22.:.:: 5 SER er naeshresikessenieesersiesentt 166 


214 Anhang 


PRINT 
Abkürzung......eeeeeeeeeeee RT EI EERSTTTNTRILTETR 51 
LIDUDEEN ee ee er ge 41 
PRINT #......2. seen rel ennerserenneseen 137 
Programm 
Anderen 67 
Definition...:.:5.::icnstsesshisnsenbenktsnnesnksunsrerensageneseennnnesen nee 62 
Fortsetzung nach Unterbrechung................22222200000000n000s000000 72 
Löschen. u... eetensntssessreentesnen ehe gneengentem ehe Ts serregs teren 75 
NaMe!.....0006scccässisgsssausssnenessessanesgennesen sn ennehtnerehregenenenineteteeregesee 73 
NUMerserung ......u.sansrninesiiehitesstesenennsensunnene 63, 77, 79 
Schrittweite:.n...5.:.4s805esnaesessseeenetsnetekhrersgendeeninsereensdesrterser nee 64 
SCHUTZ: 24.202250 eneds nee saerensundens ss enete gehe naeh nennen 180 
Start: ..secuusesessesencensesesnssensecstenssatersrereshsssnesssestesssreer nee 66 
Unterbrechüng:..:....esscsascseäsesesssdanscseeessstesensesssesseenntakeenesengenen 72 
Verknüpfung:....:.stsesietetegenltsennnunessesuenkersisesterhhee 186 
Zeilen: löschen... nennen 83 
Prögrammierhilfen:.......2::2.i2424800s0000@@sesienssnnsesseesensnmnehergesstnenhere 77 
Punkt zeichnen... sseegesssessnessssassssnndessenresesasehhentere ste denne 161 
Rauschen 5.2... Rn ssihesteseessersägeeesnen 174 
READY-Meldüung....... =... toner 7 
TEChNENn Ss esseheessesenenenneeneerertrseenrnesdeseteee essen ee TEN 42 
REM. CR ee ee weeseetenrsenteneneestreeereresee 109 
RENUM .....020r2220200: 25800080 eneeaneseegeg a rerehe net ennerRe seen Ingehtedeterereeeee 81 
RETURN... ..:::..:2:0225524 004008 00020020 000 0202000 een eier ennsserernesrensseesttedsen 111 
RIGHTS .:5..:02 Renee ihrer 194 
RND..4:003le sense eeassnsereadegternegeseaneananeyetehlesestensreeetssentehthe 190 
Routinen... uses neesneertanelegnleeeneheerrerenededeltedeset 111 
RUN 2.0.0 tnsenssstrenneenesdneseensnenehsnesas 66, 75 
SAVE... s0sneesessnnaseeseitsgetsnnäee ren ernsssenhnesneauedessasesssetnegsreeirehehenerR 71 
SCHISIEEN: Sans eschnedsthesene rn estestr tere sen engnseren N teensnassehTe ee 103 
Schutz von Programmen ..............ssss0s0000000000nnnsnnsnnsnnsnnnnnnnnnnnnenn nen 180 
SCTOUEN.E..:.2:0. 0 eleseenenannenseseesesetedsetetnnnetsehesnnessrensHeslseeteldsteteeeeseg? 67 
sequentielle Speicherung................2222.2s0022202222000000000000202nnnnnnnnnnnn 90 
SHIET EN ER eesteketnessanneendhe seen gerlerentee 8, 19 
SOUND: Ban aandensenesaaersanenertteses erste eentee dene nieeeete 169 
SPEED: INK... 222: ennkiestereensesdsssser 152 


ARNO SE en Ar 


speichern 
ProgramMan....::080s0nesdhsennksnshesnonndserpseseetndknteenenenseet ee sehesnhgetezene 73 
Daten... ni nnsssinsnedre 142 
STED GO ee een een hen Hann ersssandasssetsdetunree 104 
SERINGS$ 4:25: 5822er anbsdeteeneetnste 109 
Strings 
Definition... en nndssnendeseenserseneeen a äntseneaserene et heeeest 49 
Funktionen.........5350s50s5ess4eässtsnsescsuugesesdnsenasessssnssnnsnsetsnsgeenee 192 
Variablen::.2..5& ea dnsskestereninenh 93 
Subtraktion..2.4...2.: 0885 erannsanenienesnenet 43 
SYNLAX. OITOR. M:.sissiieesisrsseinnesgeesuesnsennnnneeheeäkseneenewedesneetereeene ee“ 15, 40 
SYNtHESIZERT.... 252000000 hensssenesetsnekessnsesensustnanngnendensunechneskenssssttenseren 168 
Tabellen... ersteren een hrerevenetensgenen 96 
Tastatur... leseeesereskgersntssgssnkkneuunentewehenetnee 5 
Abfrage.......:..cH40ssndesedesugenssssksnssessnnervensernndarseguhsedsnsenhesrrenteneee 128 
TASTEN: snssssasasnge rennen ne sagen geeseeneeeeen dene ensgee Benson eeerr nee 5 
Töne 
Eigenschaften... sienssenätesssssstee 169 
Erzeügunß.........:5.3023252J808000 50 lesedeedenstkensesesfnersseseseneetgegeteseegee 168 
Höhe. 2... steitenenessniseeidtsssieedesaenssetitißienehenenen 170 
Unterprogramme:.....u. 2. ersaeseenksssusnessnennsenenenanegenr gene 111 
Variablen... este seessnnsuneneenenne en nee re eete se 49, 93 
Vergleiche: nerenereisstereistenntessentetenenneeh 115 
Vergleichsoperatoren ...........2220s000000n20002nnnsonnnnnnsennnnnnnsnnnsnnnnnsnnsnnne 116 
VErZWEeigüng:......ssesssnssenseassestenseehtansgnnsennensersnsklannensnnnesenesdnngerehesee 71 
Warteschleife 2.22.2222. NR eneininisannhl 106 
Zeichendichte, einstellbare.......................000000000000000 0 Ren ennennsensssnnnne 26 
ZE1lENNUMMER. 5.2.0800 enenseeessssnsseretndenennesen este sasendertsassneen 43, 63 
automatische Numerierung..............222222000000000nnonnnnnnsnnnennnnennnn 77 
Umnumerierunß........cssseeeonenssnssssssennnnnnnsnnnnsnnnnnnnnnnnsnnnsssnnnnne 79 
Ziffernblock......:.ss4s4:44540sinaesssassesesssennsereissssssennen nenne 85 


ZUtallszahlen .....222.::: 22222. 8200er nee 190 


rogramme zu C LE rL 


Deutsche GPG voltware 


aus bester Hand 
DATAMAT— ;—TEKTOMAI 


Deutschlands meistgekaufte Dateiverwaltung Deutschlands meistgekaufte Textverarbeitung 
bietet einiges, was in dieser Preisklasse bisher unvorstellbar bietet Profileistung zum Hobbypreis! TEXTOMAT in 
schien: Stichworten: 
@ menuegesteuertes Diskeftenprogramm, dadurch extrem @ Diskettenprogramm durchgehend menuegesteuert 
einfach zu bedienen ©@ deutscher/amerikanischer Zeichensatz 
@ für jede Art von Daten @ Rechenfunktionen für alle Grundrechenorten 
© völlig frei gestaltbare Eingabemaske @ über 17000 Zeichen pro Text im Speicher 
@ 80 Zeichen pro Zeile ® beliebig lange Texte durch Verknüpfung 
@ Hardcopy @ 80 Zeichen pro Zeile 
@ 50 Felder pro Datensatz @ läuft mit ein oder zwei Floppys 
@ 512 Zeichen pro Datensatz @ 27 Farben für Rahmen-Hintergrund-Bildschirmfarbe 
@ bis zu 4000 Datensätze pro Datei je nach Umfang ®@ es können Trennvorschläge gemacht werden 
@ 27 Farben für Rand, Hintergrund und Buchstaben ® Wordwrap 
@ Schnittstelle zu TEXTOMAT ©@ Tabulatoren 
@ Benutzung von Rechenfeldern @ Seitennumerierung 
@ Anzeige des Disketteninhaltes @ Proportionalschrift auf entsprechendem Drucker 
@ läuft mit ein oder zwei Floppys ©@ Zuweisungstabelle für ASCII-Code 
@ komplett in Maschinensprache, dadurch extrem schnell @ frei definierbare Steuerzeichen, z.B. für Indices, 
@ deutscher/amerikanischer Zeichensatz Schriftarten, Unterstreichen, Formate 
@ fost jeder Drucker ist anschließbar @ umfangreiche Formularanpassungen 
@ Blockoperationen 


@ duplizieren der Datendiskette ; 

© gute Benutzerführung ‘Suchen und Ersetzen‘ 

@ Hauptprogramm komplett @ Serienbrieterstellung mit 
im Speicher - kein lästiges DATAMAT 
Nachladen @ tormatierte Ausgabe 


@ deutsches Handbuch mit auf dem Bildschirm 
Übungslexikon @ Anpassung an fast 
Sie können: jeden Drucker 

@ jeden Datensatz in wenigen ®@ ausführliches 
Sekunden suchen Handbuch mit 

















































"Erheblich erweiterte, leistun erweiterte, leistungsstärkere TEXTOMAT-Version. 

Bietet alle Möglichkeiten von TEXTOMAT und zusätzlich: 

+ ergonomische, schreibmaschinenähnliche Texteingabe 
arbeitet grundsätzlich im 80 Zeichenmodus 





































































o re Feldern + 2 dynamisch verwaltete Textbereiche im Speicher. Zwischen = N 

° se en aan Fa a beiden Texten kann beliebig hin- und hergeschaltet sowie DM Tag Dur 
BBeteOand En “oder kopiert werden. Wahlweise Menuesteuerung oder schnelle Für opCAGA: 664 

© Listen in völlig freiem Direktanwahl der Funktionen. 10 Floskeltasten für häufig und6128 


wiederkehrende Worte oder Redewendungen. Sehr komfortable 
Cursorsteuerung (vor/zurück - Zeichen/Wort/ Satz/Absatz) 

+ Trennvorschläge nach deutscher Grammatik 

+ Kopf- und Fußzeilen während des Textes änderbar 

+ bedingter Seitenwechsel 

+ BASIC Programme können eingelesen, editiert und abgespei- 
chert werden, dabei automatisch ASCII Um- und 
Rückwandlung 

+ Suchen und Ersetzen mit vielen Optionen und Joker (vor/ 
rückwärts - Klein/Großschreibung - ganze Wörter) 

+ komplettes Terminalprogramm zum problemilosen Senden 

und Empfangen von Texten sowohl zum Halb- als auch Voll- 

duplexbetrieb 

TEXTOMAT PLUS für CPC 6128 kostet DM 198,-" 






Format drucken 
@ Etiketten drucken 
@ Komplett nur DM 148,-* 
Für CPC 464, 664 und 6128 
Die richtige Version wird 
automatisch geladen 


Die richtige Version 
wird automatisch 
geladen 













"unverbindliche Preisempfehlung. Alle Programme auf 3" Diskette 


Sy Profi-Painter CPC 


PROFI PAINTER, ein sensationelles Programm zum 
Malen, Entwerfen und Zeichnen auf CPC Computern. 
Den berühmten Vorbildern der 32-bit Welt steht PROFI 
PAINTER kaum nach und übertrifft diese sogar in 
manchen Punkten. Im einzelnen: 


1. Allgemeine Zeichenfunktionen 

DASLINEAL zeichnet Geraden - DASRECHTECK stellt 
Rechtecke dar (lassen sich mit Muster oder Farbe aus- 
füllen) - DAS AUSGEFULLTE RECHTECK MIT RUNDEN 
ECKEN - DER KREIS zeichnet auch Ellipsen (können 
mit Muster oder Farbe ausgefüllt werden) - DAS POLY- 
GON ist auch ausfüllbar - DER FARBEIMER füllt belie- 
bige Flächen mit Muster oder Farbe - DAS RADIER- 
GUMMI. 

Die aktuelle Strichstärke der Funktionen ist jederzeit 
über ein Menue veränderbar. Es stehen vier Strichstär- 
ken (Dicke 0-3) zur Verfügung. 





2. Freihand-Zeichenfunktionen 

DER PINSEL eignet sich zum Malen auf dem Bildschirm. 
Verschiedene Pinselformen stehen diesbezüglich zur 
Verfügung. Mit dem BLEISTIFT kann der Benutzer aus 
„freier Hand“ Linien auf dem Bildschirm zeichnen. DIE 
SPRÜHDOSE ermöglicht das Sprühen einer Farbe oder 
eines Musters auf dem Bildschirm. DASLASSO ermög- 
licht das Einrahmen und Verschieben beliebiger Bild- 
ausschnitte. 


3. Sonstige weitere Funktionen 

24 zweifarbige Muster stehen zur Verfügung. Eigene 
Muster können mit dem Mustereditor entworfen wer- 
den. So lassen sich alle 24 Muster umdefinieren. Diese 
werden mit dem betreffenden Dokument abgespei- 
chert, welches ca. eine DIN A4 Seite umfaßt. Das Doku- 
ment läßt sich in alle Richtungen verschieben. Mit dem 
Auswahlviereck können beliebige Bildstellen zur weite- 
ren Bearbeitung markiert werden. 

Weitere Bearbeitungsschritte sind: - verschieben - 
ausschneiden - in die Zwischenablage kopieren - 
löschen - ausfüllen - invertieren - Konturen ziehen - 
horizontal drehen - vertikal drehen - rotieren. 


4. Hilfen 

Das gesamte Dokument kann mit einem imaginären 
Raster unterlegt werden. Im Vergrößerungsmodusistes 
möglich, jeden Punkt einzeln zu manipulieren. Die Far- 
ben können jederzeit geändert werden. 

Dokumente können als Hardcopy auf Schneider- und 
EPSON-Druckern ausgegeben werden. 


5. Texteditor 

Texte lassen sich problemlos in die Grafik integrieren. 
Dazu stehen mehrere Zeichensätze in jeweils drei 
Größen zur Verfügung. Jeder läßt sich zusätzlich fett, 
kursiv, unterstrichen oder Outline darstellen. 


6. Steuerung und Windowing 

Nahezu alle Funktionen lassen sich mit Joystick 
steuern: nur auf das entsprechende Symbol oder 
Window zeigen und den Feuerknopf betätigen. 


Das professionelle deutsche Spitzenprogramm, kom- 
plett mit ausführlichem Handbuch, für CPC 464, 664 
oder 6128. 


PROFI PAINTER CPC DM 198,-* 
Lieferbar ab ca. November. 


cz Budget-Manager 


Der Budget-Manager ist die universelle Buchführung 
sowohl für private Zwecke als auch zur Planung, Über- 
wachung und Abwicklung von Budgets jeglicher Art. 
In Stichworten: 

430 Budgetsätze - 335 Kontensätze - Budget- und 
Kontenpläne sind per Programm zu erstellen - volle 
Menuesteuerung erleichtert die Arbeit - Einzelanzeige 
von Konten, Geldfälligkeiten, Amortisation, Zinsen, 
Tilgung bis zur kleinen Privatbilanz - Tabellen- und 
Graphikausgabe auf dem Bildschirm und als Hardcopy 
auf dem Drucker möglich - zweites Laufwerk wird unter- 
stützt. Für CPC 464 und 664. 

BUDGET-MANAGER DM 148,-* 


ig] Profimat CPC 


Zur Programmierung in Maschinensprache benötigt 
man einen Assembler. Doch Assembler ist nicht gleich 
Assembler. Deshalb gibt es PROFIMAT nun auch für die 
SCHNEIDER-Rechner. Durch den integrierten Editor 
wird das Arbeiten mit PROFIMAT zum Vergnügen. Ver- 
ketten von Quelltexten für besonders lange Assembler- 
programme ist selbstverständlich möglich. PROFIMAT 
fürden SCHNEIDER ist aber mehr alsnurein Assembler, 
er ist gleichzeitig auch Monitor. 

Der absolute Clou dieses Assemblers ist die Möglich- 
keit, die frisch assemblierten Programme im TRACE- 
Modus (Einzelschritt-) laufen zu lassen und so jede 
Änderung an den CPU-Registern verfolgen zu können. 
PROFIMAT ist frei verschiebbar und kann somit nie in 
Konflikt mit Ihren eigenen Maschinenprogrammen kom- 
men. Einfache Handhabung durch den komfortablen 
Editor auch für Anfänger garantiert. Selbstverständlich 
„beherrscht“ der Assembler auch die sogenannten 
Pseudo-Ops, die bedingtes Assemblieren möglich 
machen. 

PROFIMAT CPC DM 99,-* 

Lieferbar ab ca. November für SCHNEIDER CPC 464, 
664 und 6128 


u Mathemat CPC 


MATHEMAT, das unentbehrliche Hilfsmittel für Schule, 
Beruf und Studium, ist nun auch für die SCHNEIDER- 
Rechner erhältlich. 

MATHEMAT beschäftigt sich mit der Geometrie und 
Algebra sowie mit der Kurvendiskussion. Mit MATHE- 
MAT können Sie beliebige Funktionen ableiten, inte- 
grieren und zeichnen lassen. Die Grafiken werden mit 
einer Skalierung versehen, so daß die Ausdrucke auch 
in Schule und Studium verwendet werden können. 
MATHEMAT optimiert selbständig die errechneten 
Ableitungen, löst Klammern auf etc. 

Weitere Programmteile sind der Taschenrechner und 
der Teil Geometrie/Algebra, in dem Sie Flächen- und 
Körperberechnungen durchführen können. Eine Hard- 
copy vom Bildschirm ist jederzeit möglich. Jederan den 
SCHNEIDER CPC anschließbare Drucker kann einfach 
angepaßt werden. 

MATHEMAT CPC DM 99,-* 

Lieferbar ab ca. November für SCHNEIDER CPC 464, 
664 und 6128 








* unverbindliche Preisempfehlung 
Alle Programme auf 3” Disketten 


Bücher zu CPC 464, 664 & 6128 EEE 


Der 2. Band CPC Tips & Tricks ist 
für alle CPC Besitzer interessant. 
Ob sie nun einen 464, 664 oder 
6128 besitzen! Aus dem Inhalt: 
Menuegenerator, Maskengene- 
rator, BASIC-Befehlserweiterun- 
gen, Programmierhilfen wie 
Dump, BASIC-Zeile von BASIC 
aus erzeugen, wichtige System- 
routinen und deren Nutzung, 
Beschleunigung von Program- 
men u.v.m. Wer noch mehr über 
seinen CPC wissen will, der 
kommtan diesem Buch nicht vor- 
bei! 

FEIN DATA BECKER Buch H Dullin/Straßenburg/Retzlaff 
EEEEOITTrHH CPC Tips & Tricks Band Il 
über 250 Seiten, DM 39,- 
Erscheint im November 
ISBN 3-89011-131-9 














Alles über Floppyprogrammie- 
rung vom Einsteiger bis zum 
Profi. Natürlich mit ausführli- 
chem ROM-Listing, einer äußerst 
komfortablen Dateiverwaltung, 
einem hilfreichen Disk-Monitor 
und einem ausgesprochen nütz- 
lichen Disk-Manager. Dazu eine 
Fundgrube verschiedener Pro- 
gramme und Hilfsroutinen, die 
das Buch für jeden Floppy- 
Anwender zur Pflichtlektüre 
machen! 

Brückmann/Schieb 

Das Floppy-Buch zum CPC 

250 Seiten, DM 49,- 

ISBN 3-89011-093-2 
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ISBN 3-89011-143-2 
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